VB 文本框 初始值

Question

问题是这样的：我想让文本框下次执行程序的缺省初始值为上次执行程序时赋给它的值，怎么处理？谢谢先

Answer 1

最简单的用savesetting把参数存放在注册表里面，formload的时候用getsetting取出来。但会在注册表里面产生一些数据。
麻烦一点的保存本地文件比如ini之类的

Answer 2

还有一种办法，你添加一个Label，Visible属性设置为False，然后将文本框的内容赋给Label的Caption,就OK啦1

Answer 3

logan0279这个技巧很好！不过，如何在推出VB运行程序之前保存Label控件Caption属性?
我给Label控件Caption属性赋值，但推出程序因为Label控件Caption属性没有被保存，所以还是没用。
再次谢谢！

Answer 4

Option Explicit
'以下的常量定义可以根据程序情况进行修改
Const appName = "testAppName"
Const Section = "testSection"
Const Key = "testKey"
Const DefaultVal = "测试默认值"Private Sub Form_Load()
    Label1.Caption = GetSetting(appName, Section, Key, DefaultVal)
End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    SaveSetting appName, Section, Key, Label1.Caption
End SubPrivate Sub Label1_Click()
    '模拟程序中对label1的修改
    Label1.Caption = Rnd()
End Sub

Answer 5

chewinggum谢谢！
我以为给注册表写东西比较麻烦，我试了你的代码，不麻烦！谢谢哦