如何保存窗体中的数据

[stuman]

我在窗体上做了一些文本框，文本框里能输入数字，我希望我在关闭整个程序后再次打开时，那些文本框里的数据缺省显示为上次关闭程序时的数据，请问那些数据应该如何保存?谢谢

[fvflove]

用保存.

'示例,增加一个文本框
Option Explicit

Private Sub Form_Load()
  Dim Data As String
  Open "C:\Data.txt" For Input As #1
    While Not EOF(1)
      Input #1, Data
    Wend
  Close #1
  Text1.Text = Data
End Sub

Private Sub Form_Unload(Cancel As Integer)
  Open "C:\Data.txt" For Output As #1
     Print #1, Text1.Text
  Close #1
End Sub

[fvflove]

'示例,增加一个文本框
Option Explicit

Private Sub Form_Load()
  Dim Data As String
  Open "C:\Data.txt" For output As #1  '用Output 如果没有文件,就新建立个新的文件.
    While Not EOF(1)
      Input #1, Data
    Wend
  Close #1
  Text1.Text = Data
End Sub

Private Sub Form_Unload(Cancel As Integer)
  Open "C:\Data.txt" For Output As #1
     Print #1, Text1.Text
  Close #1

[yachong]

Private Sub Form_Load()
Dim s As String
On Error Resume Next
Open "save.txt" For Input As #1
Line Input #1, s
Text1.Text = s
Line Input #1, s
Text2.Text = s
Line Input #1, s
Text3.Text = s
Close 1
End Sub

Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
Open "save.txt" For Output As #1
Print #1, Text1.Text
Print #1, Text2.Text
Print #1, Text3.Text
Close 1
End Sub