bczgvip 在吗！帮我看看啊

注册表的还在用啊，不是说用INI么？
SaveSettingEx Text1(0),Text1(1),Text1(2) ' ... 这样就...是啊。不行了。主要是name 属性重复呐。
控件太多，就用2、4楼的代码吧。

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

記得“風”哥也有一招～宣告控件在賦予控件名稱～分段作～

二樓的是去掃出你表單所有控件～在依據特徵去做事～
四樓是一開始設計時就把控件定義為數組～一次處理～
“風”哥那招是先定義一個指定控件的空類～再賦予名稱～再處理～
方法很多～主要看你完整需求～就針對你的主題～四樓代碼最簡潔～
若你只說了一半的需求～那要使用怎樣的代碼去實現～就還得估量估量了～
每次問題只說一半～代碼絕對是亂七八糟～整體的一致性很重要～
和未來的拓展性～個人淺見～

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

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

二楼代码里没有调用"写入INI"的函数，不知道你改了没有，如果是原代码，实际上一次也写入不了。
二楼代码主要是针对你不愿改设计而写的，实际上你在设计前针对功能就需要做简化代码的设计，你这个情况用控件数组最简洁。二楼修改后的代码如下：
Private Sub Command1_Click()
  Dim a As Control, i As Integer, n As String
  For i = 1 To 30  '这里的30需要根据你使用的文本框实际个数决定
    n = "TEXT" & Trim(Str(i))
    For Each a In Me.Controls
      If UCase(a.Name) = n Then Call 写入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

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

Dim yxtt As Variant
for i=0 to 3 ''一共有多少条比如4条
yxtt = Array("Text1", "Text2", "Text3", "Text4")
Call 写入INI("Form设置", "(yxtt(i))", (yxtt(i)).Text)
Next i

以此类推

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

ok1010101 你的我改成这样才运行了！但是INI不记录！

Private Sub Command1_Click()
Dim yxtt As Variant, i As Integer
For i = 0 To 11 ''一共有多少条比如4条
yxtt = Array("Text1", "Text2", "Text3", "Text4", "Text5", "Text6", "Text7", "Text8", "Text9", "Text10", "Text11", "Text12")
Call 写入INI("Form设置", "(yxtt(i))", (yxtt(i)))
Next i
End Sub
Private Sub Command2_Click()
Dim yxtt As Variant, i As Integer
For i = 0 To 11 ''一共有多少条比如4条
yxtt = Array("Text1", "Text2", "Text3", "Text4", "Text5", "Text6", "Text7", "Text8", "Text9", "Text10", "Text11", "Text12")
Call 读取INI("Form设置", yxtt(i), "默认值")
Next i
End Sub