跪求,在vb环境中编译生成exe后的程序,退出程序后保留某个变量值或某个控件的属性,真么才能做到啊?
就是说在程序中有一个按钮PrivateSubCommand1_Click()Command1.Enabled=Falseendsub在程序退出后在运行,command1的...
就是说在程序中有一个按钮
Private Sub Command1_Click()
Command1.Enabled =False
end sub
在程序退出后在运行,command1的enabled的属性仍为flase,但第一次进入时要为true,按钮才失去作用,以后在运行程序都是这样
再麻烦一下第一次打开程序label1的内容能永久保留 展开
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
End Sub
' 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
End Sub
展开全部
Private Sub Command1_Click()
Command1.Enabled =False
open setup.txt for output as #1
print #1,command.enabled
close #1
sub end
Private Sub Form_Load()
open setup.txt for input as #1
line input #1,a
command1.enabled=a
End Sub
不太明白你的补充???能具体说下吗》?
Command1.Enabled =False
open setup.txt for output as #1
print #1,command.enabled
close #1
sub end
Private Sub Form_Load()
open setup.txt for input as #1
line input #1,a
command1.enabled=a
End Sub
不太明白你的补充???能具体说下吗》?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
保存到INI文件里面或者注册表里面
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询