[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 编辑 ]

如果你规定好所有文本控件命名规则不变的话，可以用如下代码简化
Private Sub Command1_Click()
  Dim a As Control, i As Integer, n As String
  For i = 1 To 30
    n = "TEXT" & Trim(Str(i))
    For Each a In Me.Controls
      If UCase(a.Name) = n Then a=读取INI("Form设置", a.Name, a)
    Next
  Next
End Sub
Private Sub Command2_Click()
  Dim a As Control, i As Integer, n As String
  For i = 1 To 30
    n = "TEXT" & Trim(Str(i))
    For Each a In Me.Controls
      If UCase(a.Name) = n Then a=读取INI("Form设置", a.Name, "默认值")
    Next
  Next
End Sub

Control Array(index) 能缩更短
编程前先想好就能省很多心

Option Explicit

Private Const Name1 = "Form设置"
Private Const Name2 = "默认值"

Private Sub Command1_Click()
Dim i As Integer

    For i = 0 To Text1.Count - 1
       Call 写入INI(Name1, "Text1" & i, Text1(i).Text)
    Next i
    
End Sub

Private Sub Command2_Click()
Dim i As Integer

    For i = 0 To Text1.Count - 1
       Text1(i) = 读取INI(Name1, "Text1" & i, Name2)
    Next i
    
End Sub

就算几百个控件～一样就这几行～

[ 本帖最后由 yz1025 于 2013-2-1 09:07 编辑 ]

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

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

点击 Text1 控件 按 Ctrl+C 复制，再粘贴。就能得到控件数组。

我的程序是用来扫描窗体里控件的，发现是文本控件名称是“Text+编号”的，就调用你的子程序，你试着运行下就知道了，我的代码通过调试了的，能达到你的要求。3楼的是要你把所有的文本控件设置成控件数组，这样就非常方便简化代码了。

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

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

bczgvip就麻烦你啦