以文本方式查看主题

-  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=95347)
--  作者：atmetmicoo
--  发布时间：2017/1/17 13:03:00
--  [求助]如何避免重复单击或者重复双击
各位老师好，

我经常在表的单击&双击事件中写代码，但是有些人手快，明明是单击事件，他点击三下，程序就运行三次，放在双击事件中也不保险，经常出现两次双击，请教各位老师有可以避免的办法吗？谢谢
--  作者：逛逛
--  发布时间：2017/1/17 14:06:00
--  
用计时器，从击键的间隔去判断。

最好不要单击双击一起用

程序重复运行，你加个判断就行了
--  作者：atmetmicoo
--  发布时间：2017/1/17 14:10:00
--  
谢谢逛逛老师

If vars("防止多击") = True Then
    vars("防止多击") = False \'设置为空.为空的时候可以执行下面的代码.
    Return
End If
vars("防止多击") = True
--  作者：有点色
--  发布时间：2017/1/17 14:14:00
--  

 加上代码

 

static ptime As Date = Nothing

Dim sp As TimeSpan = Date.now - ptime
If sp.TotalSeconds <= 1 Then
    return \'一秒内多次触发无效
Else
    ptime = Date.now
End If
--  作者：atmetmicoo
--  发布时间：2017/1/17 17:26:00
--  
谢谢