VB程序快捷键问题

来源：百度知道 编辑：UC知道 时间：2024/06/10 03:17:17
VB制作的程序，打开后，不管激活未激活，按钮的快捷键都可用！除非关闭程序！
的代码怎么写？
Timer 试过 ，是处于假激活状态，至于钩子吗？？？那就简单了，我不会钩子啊！—_—!

添加一个Timer控件

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
Private Function MyHotKey(vKeyCode) As Boolean
MyHotKey = (GetAsyncKeyState(vKeyCode) < 0)
End Function
Private Sub Form_Load()
Timer1.Interval = 80
End Sub
Private Sub Timer1_Timer()
If MyHotKey(vbKeyZ) Then '如果按下了Z
'你要执行的代码

End Sub

只有两个办法，注册热键或设置钩子