Question

vb怎么实现全局快捷键？

例如我想实现ctrl+k和ctrl+L来分别实现隐藏窗口和显示窗口，请问怎么实现。

Answer 1

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 Timer1_Timer()
If MyHotKey(vbKeyL) And vbKeyControl Then me.show
If MyHotKey(vbKeyK) And vbKeyControl Then me.hide
End Sub

追问

全局的快捷方式啊，这个好像不行

追答

添加timer控件 设置时间间隔属性 没有不行的