Question

VB 怎么检测全局 keyup事件

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Form_Load()
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyQ) And GetAsyncKeyState(vbKeyControl) Then
SendKeys "这就是它的效果"
End If
End Sub
如上面的代码，我按住的时间长了就不停的输出“这就是它的效果”有没有办法检测到放开热键时再输出“这就是它的效果”或都用其它别的什么方法让字符只输出一次，下次再按热件时再只输出一次呢？？

Answer 1

'声明个布尔型变量，用来标记是否已输出
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Form_Load()
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
Static f As Boolean
If GetAsyncKeyState(vbKeyQ) And GetAsyncKeyState(vbKeyControl) Then
If Not f Then '判断是否已输出
SendKeys "这就是它的效果"
f = True '标记输出
End If
Else
f = False '松开按键后复位标记变量
End If
End Sub

Answer 2

要用keyboard hook
而且要用到全局的话 vb好像不能办到
因为全局的keyboard hook 要放在dll 动态连结库中
代码太长了 就不贴了 或姐你可以百度一下 都有很多例子的
不过要麼是c++的 要麼就是delphi的