[local]1[/local]
Private Sub Command1_Click()
       Call 写入INI("Form设置", "Text1", Text1.Text)
       Call 写入INI("Form设置", "Text2", Text2.Text)
       Call 写入INI("Form设置", "Text3", Text3.Text) '
       Call 写入INI("Form设置", "Text4", Text4.Text)
       Call 写入INI("Form设置", "Text5", Text5.Text)
       Call 写入INI("Form设置", "Text6", Text6.Text)
       Call 写入INI("Form设置", "Text7", Text7.Text)
       Call 写入INI("Form设置", "Text8", Text8.Text)
       Call 写入INI("Form设置", "Text9", Text9.Text)
       Call 写入INI("Form设置", "Text10", Text10.Text)
       Call 写入INI("Form设置", "Text11", Text11.Text)
       Call 写入INI("Form设置", "Text12", Text12.Text)
       Call 写入INI("Form设置", "Text13", Text13.Text)
       Call 写入INI("Form设置", "Text14", Text14.Text)
       Call 写入INI("Form设置", "Text15", Text15.Text)
       Call 写入INI("Form设置", "Text16", Text16.Text)
       Call 写入INI("Form设置", "Text17", Text17.Text)
       Call 写入INI("Form设置", "Text18", Text18.Text)
       Call 写入INI("Form设置", "Text19", Text19.Text)
       Call 写入INI("Form设置", "Text20", Text20.Text)
       Call 写入INI("Form设置", "Text21", Text21.Text)
       Call 写入INI("Form设置", "Text22", Text22.Text)
       Call 写入INI("Form设置", "Text26", Text26.Text)
       Call 写入INI("Form设置", "Text24", Text24.Text)
       Call 写入INI("Form设置", "Text25", Text25.Text)
       Call 写入INI("Form设置", "Text26", Text26.Text)
       Call 写入INI("Form设置", "Text27", Text27.Text)
       Call 写入INI("Form设置", "Text28", Text28.Text)
       Call 写入INI("Form设置", "Text29", Text29.Text)
       Call 写入INI("Form设置", "Text30", Text30.Text)
'       Call 写入INI("Form设置", "Text31", Text31.Text)
'       Call 写入INI("Form设置", "Text32", Text32.Text)
'       Call 写入INI("Form设置", "Text33", Text33.Text)
'       Call 写入INI("Form设置", "Text34", Text34.Text)
End Sub

Private Sub Command2_Click()
      Text1 = 读取INI("Form设置", "Text1", "默认值")
      Text2 = 读取INI("Form设置", "Text2", "默认值")
      Text3 = 读取INI("Form设置", "Text3", "默认值")
      Text4 = 读取INI("Form设置", "Text4", "默认值")
      Text5 = 读取INI("Form设置", "Text5", "默认值")
      Text6 = 读取INI("Form设置", "Text6", "默认值")
      Text7 = 读取INI("Form设置", "Text7", "默认值")
      Text8 = 读取INI("Form设置", "Text8", "默认值")
      Text9 = 读取INI("Form设置", "Text9", "默认值")
      Text10 = 读取INI("Form设置", "Text10", "默认值")
      Text11 = 读取INI("Form设置", "Text11", "默认值")
      Text12 = 读取INI("Form设置", "Text12", "默认值")
      Text13 = 读取INI("Form设置", "Text13", "默认值")
      Text14 = 读取INI("Form设置", "Text14", "默认值")
      Text15 = 读取INI("Form设置", "Text15", "默认值")
      Text16 = 读取INI("Form设置", "Text16", "默认值")
      Text17 = 读取INI("Form设置", "Text17", "默认值")
      Text18 = 读取INI("Form设置", "Text18", "默认值")
      Text19 = 读取INI("Form设置", "Text19", "默认值")
      Text20 = 读取INI("Form设置", "Text20", "默认值")
      Text21 = 读取INI("Form设置", "Text21", "默认值")
      Text22 = 读取INI("Form设置", "Text22", "默认值")
      Text24 = 读取INI("Form设置", "Text24", "默认值")
      Text25 = 读取INI("Form设置", "Text25", "默认值")
      Text26 = 读取INI("Form设置", "Text26", "默认值")
      Text27 = 读取INI("Form设置", "Text27", "默认值")
      Text28 = 读取INI("Form设置", "Text28", "默认值")
      Text29 = 读取INI("Form设置", "Text29", "默认值")
      Text30 = 读取INI("Form设置", "Text30", "默认值")


我想把这个代码简化一下！

思路是列如：
a=Text(i) + 1
Call 写入INI("Form设置", "& a &", a.Text)
具体应该怎么书写啊，不然控件多了就一老大一串！麻烦各位了！！！

[ 本帖最后由 qiziyun 于 2013-2-4 06:07 编辑 ]

提示未找到方法或数据成员，.Count提示是这个！但是这个好像要加val函数吧！但是好像有了Count不加val也行吧！我实验了一直出错！！！麻烦你看看咯是不是那里没写对！！

lowxiong    Control  怎么是改变这个呢！！没跟上你思路！我需要动态改变的！你这个一旦写入就改不了了！！

bczgvip 早啊！！你说的是要我在那里复制呢？主要是代码复制进去我直接就不能运行！具体应该怎么写啊麻烦你了

我明白你意思了！是叫我在制作控件时候就复制然后就产生TEXE（1）2、3。。。。。这样控件是吗！这样的话我其他代码也要全改了！不能像前面你教我了一个写入注册表的方法
Private Sub Command1_Click()
    SaveSettingEx Text1, Text2, Text3, Text4, Text5, Text6
End Sub
这样来实现吗！注册表那个他麻烦了！
具体需要怎么写呢！

bczgvip就麻烦你啦

bczgvip 在吗！帮我看看啊

bczgvip你还没睡吗？
2楼和你的代码我用了有问题，2楼的是只能保存1次，不能随时修改，你的那个是我无法运行啊。
详细的帮我修改一下嘛

对啊！NAME也要跟随TEXT变化的

声明那些我是写在模块里的！！建立一个窗体来操作！！
我用了2楼和4楼版主的了！2楼是保存后就不能动态保存了！不能改变！
4楼是提示错误~~~~、
具体应该怎么书写啊！把 他们全加到数据变量里

lowxiong 多谢啊！我回家后试试！！！！！！！

owxiong 我修改过的！对前面2楼那个我修改过的是修改不了！！~~~~~~~~~现在用你这个没问题了！！谢谢了！！！！！