以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [分享]连续按键++实现某动作  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=127348)

--  作者：mositu --  发布时间：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