VB如何使第一次点击按钮1 按钮1不可用 直到哪怕是第二次打开

也不能用?... 也不能用? 展开
 我来答
然后去远足
2013-08-23 · TA获得超过1万个赞
知道大有可为答主
回答量:4016
采纳率:83%
帮助的人:2429万
展开全部
题主你好,题主是想说某个 CommandButton 只能单击一次,然后即使再次运行程序这个按钮也处于不可用的状态么?

这个问题有多种解决方法,如注册表写入法、INI文件写入法、文本文件写入法等。

题主只需要将“我已经单击过了这个按钮了”这个信息(可以设置成变量什么的)保存下来,保存到注册表也好、INI也好、文本文件中也好,第二次运行时去读取这个信息,然后把 Command 的 Enabled 赋值为 False 就可以了。

具体的关于 VB 如何读写注册表、INI、文本文件,题主可以自行百度查阅。
追问
表示能给我一个具体代码么 

我试过用读写文本文件的方法 以TEXT2.TEXT作为载体
点击按钮后 建立一个txt 然后将内容放到text2中
如果text2里面有内容 则关闭

....不过失败了 求代码
追答

假设窗体上存在 Command1,C:\ 存在 1.txt 文件(即 C:\1.txt)。

Private Sub Form_Load()
 Dim Str As String
 Open "C:\1.txt" For Input As #1
  Line Input #1, Str
 Close #1
 If Str = "已经点击过了" Then Command1.Enabled = False
End Sub
Private Sub Command1_Click()
 Open "C:\1.txt" For Output As #1
  Print #1, "已经点击过了"
 Close #1
 Command1.Enabled = False
End Sub
匿名用户
2013-08-23
展开全部
Private Sub Command1_Click()
Open "d:\kz.txt" For Output As #1
Print #1, "false"
Close #1
Command1.Enabled = False
End Sub

Private Sub Form_Load()
If Dir("d:\kz.txt") = "" Then
Exit Sub
Else
Open "d:\kz.txt" For Input As #1
Input #1, q
Close #1
Command1.Enabled = q
End If
End Sub
只允许使用一次,之后,只要d:\kz.txt文件还在,并且没改,就不可用
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
设计营地
2013-08-23 · 分享交流设计软件相关的知识
设计营地
采纳数:552 获赞数:860

向TA提问 私信TA
展开全部
设置enable属性为false。
追问
←_←  这个都知道 那么第二次打开呢
追答
把enable的值保存在文本文件中,每次启动都读取文件里的enable的值,并设置即可。以后都不可用。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式