64.txt

来自「介绍VB里的各种控件的使用方法,窗口控制,图像编程以及OCX等内容,还提供了一个」· 文本 代码 · 共 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查得。