怎样让文本框里的内容再次运行时保持上次的内容？

Question

比如，文本框默认显示的是0，我第一次运行后把这个值改成1，关闭程序后可以让文本框里的值仍然是1

Answer 1

Private Sub Form_Load()
    '这里读取
End SubPrivate Sub Form_Unload(Cancel As Integer)
     '这里保存
End Sub

Answer 2

是保存到txt文件里吗？好复杂

Answer 3

SaveSetting      
GetSetting 

Answer 4

    SaveSetting "XSserver", "XSserver", "servername", Me.txtserver.Text   

Answer 5

    SaveSetting "XSserver", "XSserver", "servername", txtServer.Text
    
    txtServer.Text = GetSetting("XSserver", "XSserver", "servername", "(local)")

Answer 6

form_unload()open "txtfile.txt" for output as #1
print #1,text1.text
close #1form_load()
dim txtline as string
open "txtfile.txt" for input as #1
line input #1,txtline
close #1
text1.text = txtline这样就好了
存取txt文件

Answer 7

1.注册表（这个最简便，但是程序如果有多个副本需要运行就不好了，方法参考7楼）
2.ini配置文件（这个最规范，可是操作起来有点小麻烦，不过用模块还是很容易的，和使用SaveSetting GetSetting一样，方法参考：http://www.symental.com/sfw?f=IniExample）
3.txt文件，自己定义格式（这个也可以，数据少可以用这个，方法参考9楼）
4.数据库（对于你的这个用这个方案的话很不好，建议pass）