跪求，在vb环境中编译生成exe后的程序，退出程序后保留某个变量值或某个控件的属性，真么才能做到啊？

来源：百度知道 编辑：UC知道 时间：2024/06/15 01:02:35
就是说在程序中有一个按钮
Private Sub Command1_Click()
Command1.Enabled =False
end sub
在程序退出后在运行，command1的enabled的属性仍为flase，但第一次进入时要为true，按钮才失去作用，以后在运行程序都是这样
再麻烦一下第一次打开程序label1的内容能永久保留

Option Explicit
' SaveSetting和GetSetting用于快速的读写注册表
' 下面的"Save", "Button", "Enable", "False"这四个字符串,都是可以自己随便起的,只要保证
' "Save", "Button", "Enable", 这三个字符串,读的时候和写的时候是一样的
' "False"或者"True"是保存和读取的设置,根据这个值进行不同的处理即可

Private Sub Command1_Click()
Command1.Enabled = False
SaveSetting "Save", "Button", "Enable", "False" '保存设置到注册表
End Sub

Private Sub Command2_Click()
Command1.Enabled = True
SaveSetting "Save", "Button", "Enable", "True" '保存设置到注册表
End Sub

Private Sub Form_Load()
Dim s As String

s = GetSetting("Save", "Button", "Enable", "True") '从注册表读取设置
Command1.Enabled = (s = "True") '判断保存的设置是不是"True",如果是的话,就设置按钮属性为True