Foxtable(狐表) → 用户栏目 → 专家坐堂 → [分享]连续按键++实现某动作


  共有1791人关注过本帖树形打印复制链接

主题：[分享]连续按键++实现某动作
帅哥哟，离线，有人找我吗？
mositu
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：112 积分：1148 威望：0 精华：0 注册：2012/3/28 13:02:00 		[分享]连续按键++实现某动作  发帖心情 Post By：2018/11/12 11:58:00 [只看该作者]

先添加一个全局变量，在窗体的KeyDown事件中
If e.KeyCode = Keys.add Then
    If Vars("key_press") = #1/1/1 0:00:00# Then
        Vars("key_press") = Date.Now
    Else
        Dim st As Date = Vars("key_press")
        Dim t As TimeSpan = Date.Now - st
        If t.TotalMilliseconds < 200 Then
            Dim btn As WinForm.Button = e.form.Controls("Btn_saveadd")
            btn.PerformClick()
        Else
            Vars("key_press") = Date.Now
        End If
    End If
End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03125 秒, 4 次数据查询