- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 怎么限制按钮的点击次数？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=27623)
-- 发布时间：2013/1/6 7:10:00
-- 怎么限制按钮的点击次数？
怎么限制按钮的点击次数？如题 怎么样写代码能够限制按钮的点击次数？
-- 发布时间：2013/1/6 7:41:00
--
预设一个整型全局变量:点击次数
窗口的AfterLoad:
Dim btn As WinForm.Button = e.Form.Controls("Button1")
If Vars("点击次数") > 5 Then
btn.Enabled =False
End If
按钮的Click:
Dim btn As WinForm.Button = e.Form.Controls("Button1")
If Vars("点击次数") < 6 Then
事件代码
Vars("点击次数") = Vars("点击次数") + 1
Else
btn.Enabled =False
End If
[此贴子已经被作者于2013-1-6 7:41:54编辑过]
-- 发布时间：2013/1/6 9:01:00
--
楼上正解
-- 发布时间：2013/1/6 12:17:00
--
记下了，顶上去
-- 发布时间：2013/1/7 9:19:00
-- 多谢！！！
多谢！！！非常感谢
-- 发布时间：2013/1/7 9:24:00
--
其实不用全局变量，用静态变量更好，按钮代码改为：
Static cnt As Integer
cnt = cnt + 1
If cnt < 6 Then
\'原来的代码
Else
MessageBox.show("一天只能五次")
Next
-- 发布时间：2013/1/15 17:10:00
--
我按狐爸的代码输进去，怎么会提示这样的错误呢
此主题相关图片如下：图.jpg
-- 发布时间：2013/1/15 17:28:00
--
问题解决，是因为刚才没有认真看代码。改好了，谢谢！