有没有方法，某按键单击后，要延时一秒后才能再次单击？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 有没有方法，某按键单击后，要延时一秒后才能再次单击？

共有4777人关注过本帖树形打印复制链接主题：有没有方法，某按键单击后，要延时一秒后才能再次单击？

pc005637

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1021 积分：12746 威望：0 精华：0 注册：2011/5/29 15:19:00

有没有方法，某按键单击后，要延时一秒后才能再次单击？ 发帖心情

Post By：2015/2/25 16:34:00 [只看该作者]

因为有些鼠标太差了，使用了一段时间后，单击操作就变成双击操作了。

有些按键是单击就添加一行的代码，如果是双击就是添加两行了。搞到要删除掉多余的一行。

另外这些代码好像不行：

e.Sender.Enabled = False

Tables1.AddNew()

System.Threading.Thread.Sleep(3000)

e.Sender.Enabled = True

如果双击的话，的确会延时，不过还是会新增两行的。

Bin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：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

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

下一主题 >> << 上一主题

主题：有没有方法，某按键单击后，要延时一秒后才能再次单击？