以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  设置时间  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=96653)

--  作者:yangwenghd
--  发布时间:2017/2/25 11:06:00
--  设置时间
可以在 点击一个按钮后还是计时,然后过来3秒后 另外以为一个按钮 的鼠标左键失效  然后在点击上一个按钮 又重新开始计时,感谢 感谢 
--  作者:有点蓝
--  发布时间:2017/2/25 11:42:00
--  

按钮一事件

 

e.Form.Controls("Button2").Enabled = True
e.Form.TimerEnabled = True
vars("tick") = 1

 

TimerTick事件

 

If vars("tick") > 3 Then
    e.Form.Controls("Button2").Enabled = False
    e.Form.TimerEnabled = False
End If
vars("tick") += 1


--  作者:yangwenghd
--  发布时间:2017/2/25 20:37:00
--  
谢谢 可以了 感谢 感谢