以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  有没有方法,某按键单击后,要延时一秒后才能再次单击?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=64610)

--  作者:pc005637
--  发布时间:2015/2/25 16:34:00
--  有没有方法,某按键单击后,要延时一秒后才能再次单击?
因为有些鼠标太差了,使用了一段时间后,单击操作就变成双击操作了。
有些按键是单击就添加一行的代码,如果是双击就是添加两行了。搞到要删除掉多余的一行。
另外这些代码好像不行:
e.Sender.Enabled = False
Tables1.AddNew()
System.Threading.Thread.Sleep(3000)
e.Sender.Enabled = True
如果双击的话,的确会延时,不过还是会新增两行的。

--  作者:Bin
--  发布时间:2015/2/25 16:36:00
--  
用计时器,计时器代码为 

e.Form.TimerEnabled=False
e.form.controls("按钮控件名").Enabled =true

e.Sender.Enabled = False
Tables1.AddNew()
e.Form.TimerEnabled=True


--  作者:有点甜
--  发布时间:2015/2/25 16:38:00
--  

 通过时间判断,过快的点击无效即可。

 

static pt As Date = Nothing
Dim sp As TimeSpan = Date.Now - pt
If sp.TotalSeconds > 1 Then
    CurrentTable.AddNew
    pt = Date.Now
Else
    output.show("无效")   
End If