64.txt

来自「VB文章集（含API、窗口、数据库、多媒体、系统、文件、等等）」· 文本 代码 · 共 16 行

如何让程序拥有多个热键？
 

在Form中加入
Private Declare Function GetAsyncKeyState Lib "user32" _
　 (ByVal vkey As Long) As Integer

Private Function MyHotKey(vKeyCode) As Boolean
　 MyHotKey = GetAsyncKeyState(vKeyCode) < 0
End Function

然后在循环中或Timer的Timer事件中检测：
　 If myHotKey(vbkeyA) then .....
其中vbkeyA是键盘″A″的常数，其他键可按F1查得。