如何使输入到textbox的字符，在重新打开窗体时仍不变

Question

如在form1窗体text1.text中输入100（会不定时改变的），希望下次打开窗体时，text1.text还是100不变。当text1.text中改输入450时，下次打开窗体时，text1.text是上次输入的450。如何实现？谢谢

Answer 1

Option Explicit
    Dim sj
Private Sub Form_Load()
    On Error GoTo UError
    Open "c:\data.txt" For Input As #1
        Input #1, sj
    Close
    Text1 = sj
UError:
End SubPrivate Sub Form_Unload(Cancel As Integer)
    sj = Text1
    Open "c:\data.txt" For Output As #1
        Write #1, sj
    Close
End Sub

Answer 2

'修改一下楼上的Option Explicit
Dim sj$
Private Sub Form_Load()
   If Dir("c:\data.txt") <> "" Then
      Open "c:\data.txt" For Input As #1
      Line Input #1, sj
      Close #1
      Text1.Text = sj
   End If
End SubPrivate Sub Form_Unload(Cancel As Integer)
   sj = Text1.Text
   Open "c:\data.txt" For Output As #1
   Print #1, sj
   Close #1
End Sub

Answer 3

谢谢各位，解决了提问，当不理想。数字安全性太差，有没有比较安全点的，或者不用写入读出txt、数据库之类的。

Answer 4

那用API 存放到INI文件中或注册表中

Answer 5

下载这个吧, 这个就是你需要的, 数字安全性太差，这个安全点, 要更安全也行, 这个代码里面要保存时动点手脚即可.【CBM666 的图片保存信息】 
http://download.csdn.net/source/374797