一个窗体上有很多个文本框，请教大侠，如何实现在关闭程序的时候自动将所有【非空】文本框里的内容写入一个txt（或ini随便），重新打开程序的时候按原位置加载这些内容

Private Sub Form_Load()
Dim s As String, i As Integer
Open App.Path & "\Set.txt" For Input As #1
Do While i <= Text1.UBound
Line Input #1, s
Text1(i) = s
i = i + 1
Loop
Close #1
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim i As Integer
If Dir(App.Path & "\Set.txt") <> "" Then Kill App.Path & "\Set.txt"
Open App.Path & "\Set.txt" For Append As #2
For i = Text1.LBound To Text1.UBound
Print #2, Text1(i)
Next
Close #2
End Sub

楼主你的需求有自相矛盾之处：如果只保存非空文本框里的内容，并且中间（不是末尾）的文本框有空白的，那么保存完之后再重新打开时，就不能按照【原位置】加载了，只能按照【原顺序】加载，跳过空白；如果想按照【原位置】加载，那么就不能跳过空白文本框，而应该全部保存（2楼的代码就是这样写的）