以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  用户习惯快速多次点击按钮,造成重复执行或错误执行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=188806)

--  作者:xluoping
--  发布时间:2023/10/19 23:14:00
--  用户习惯快速多次点击按钮,造成重复执行或错误执行
最近发现一个这样的情况。

有些用户,喜欢点击按钮时,连续快速点击按钮,造成多次执行Click 事件,这种情况怎么避免?

--  作者:有点蓝
--  发布时间:2023/10/20 8:31:00
--  
按钮代码

static d As Date
If (Date.Now - d).TotalMilliseconds >= 500 Then  \'500毫秒内不会重复执行
d = Date.Now
    ‘原按钮代码
End If

--  作者:xluoping
--  发布时间:2023/10/20 9:03:00
--  一个窗口多个按钮
static d As Date
If (Date.Now - d).TotalMilliseconds >= 1500 Then  \'500毫秒内不会重复执行
    d = Date.Now
    \'原按钮代码
Else
    Return
End If

代码

一个窗口好多按钮,每个按钮都得设置一下,是否可以统一设置,执行Click 前都执行以上

--  作者:有点蓝
--  发布时间:2023/10/20 9:12:00
--  
只能逐个按钮设置