永发信息网

VB程序问题求助

答案:5  悬赏:80  手机版
解决时间 2021-04-28 18:15
  • 提问者网友:孤凫
  • 2021-04-27 23:00
我是新手,做了一个小程序 ,里面有几个按钮,每个按钮按一下后它就失效
但是当我关闭程序后再打开时,这些按钮又能按了。。
哪位高手能告诉我该加什么代码或控件才能使它关闭后再打开还是和上一次一样的结果??就是能保存的。。。
谢谢啊!!!
最佳答案
  • 五星知识达人网友:青灯有味
  • 2021-04-28 00:08

听我说,你这样没啥意思诶,因为你只能点那个按钮一下,再次打开就一样不能按,不过代码给你看看:


窗体里一个Command1控件,把代码复制到空白的代码框里(空白指你在粘贴我的代码时,代码框里不要有任何代码包括Private Sub Command1_Click(),Private Sub Form_load()


Dim a


Private Sub Command1_Click()
Command1.Enabled = False
a = 1
SaveSetting "rhd", "test", "test", (a)
End Sub



Private Sub Form_load()
a = GetSetting("rhd", "test", "test", "")
Print a
If a <> 1 Then
Command1.Enabled = True
Else
Command1.Enabled = False
End If
End Sub


我知道你想要的东西,这两个东西很有用的


SaveSetting "rhd", "test", "test", (a)


a = GetSetting("rhd", "test", "test", "")


绝对达到你要的效果了吧

全部回答
  • 1楼网友:白昼之月
  • 2021-04-28 04:10
So Easy,双击按钮控件,光标将自动定位到按钮Click事件中, 加一行代码:按钮名.enabled = false
  • 2楼网友:孤独入客枕
  • 2021-04-28 02:33

  • 3楼网友:几近狂妄
  • 2021-04-28 00:55
Private Sub Command1_Click() '新手嘛,可以选择这个方法,下面的 Command1.Enabled = False End Sub Private Sub Form_Load() If Dir("c:\1.txt") = "" Then Open "c:\1.txt" For Output As #1 Print #1, "false" Close #1 Else Command1.Enabled = False End If End Sub '但大部分都是通过INI或者注册表来保存的 '理解上面这个再去看其它的
  • 4楼网友:封刀令
  • 2021-04-28 00:44
你既然是新手,能想到这个问题也算可以,但是你得一步一步来,要保存状态的话不是马上你就能弄的明白的,最简单的就是操作 INI 文件了,将状态信息保存在 INI 文件中,运行程序后再从 INI 文件中读取状态!你可以学一下 INI 文件的操作!
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯