Question

VB能全局监视热键触发事件的代码怎么写

希望代码简单点，能很容易看懂，就是要求我写的程序运行后，无论在哪个窗口中按下A键，都能触发我写程序的事件，程序最小化时也能触发事件，谢谢哪位大虾帮忙

Answer 1

方法有多种，介绍一种简单的给你

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer 'API声明，这是判断某个按键是否按下，如果按下返回值不为0，如果没有按下返回值为0
Dim flag As Boolean

Private Sub Form_Load()
flag = False
End Sub

Private Sub Timer1_Timer() '用时钟不断判断，周期100够了

'这是按着不断触发事件
'If GetAsyncKeyState(vbKeyA) <> 0 Then '按下a，vbkeya 看下面

'Form1.Left = Form1.Left - 100

'Else '没有按下

'End If

'以下是按一次只会触发一次事件
If GetAsyncKeyState(vbKeyA) <> 0 Then '按下a，vbkeya 看下面

If flag = False Then '第一次通过，按着A第二次以上跳过
Form1.Left = Form1.Left - 100
End If
flag = True

Else '没有按下

flag = False '不按A恢复

End If

End Sub

'-----------------------------以下为按键常量参考

'常数 值 描述
'vbKeyLButton 0x1 鼠标左键
'vbKeyRButton 0x2 鼠标右键
'vbKeyCancel 0x3 CANCEL 键
'vbKeyMButton 0x4 鼠标中键
'vbKeyBack 0x8 BACKSPACE 键
'vbKeyTab 0x9 TAB 键
'vbKeyClear 0xC CLEAR 键
'vbKeyReturn 0xD ENTER 键
'vbKeyShift 0x10 SHIFT 键
'vbKeyControl 0x11 CTRL 键
'vbKeyMenu 0x12 MENU 键
'vbKeyPause 0x13 PAUSE 键
'vbKeyCapital 0x14 CAPS LOCK 键
'vbKeyEscape 0x1B ESC 键
'vbKeySpace 0x20 SPACEBAR 键
'vbKeyPageUp 0x21 PAGE UP 键
'vbKeyPageDown 0x22 PAGE DOWN 键
'vbKeyEnd 0x23 END 键
'vbKeyHome 0x24 HOME 键
'vbKeyLeft 0x25 LEFT ARROW 键
'vbKeyUp 0x26 UP ARROW 键
'vbKeyRight 0x27 RIGHT ARROW 键
'vbKeyDown 0x28 DOWN ARROW 键
'vbKeySelect 0x29 SELECT 键
'vbKeyPrint 0x2A PRINT SCREEN 键
'vbKeyExecute 0x2B EXECUTE 键
'vbKeySnapshot 0x2C SNAPSHOT 键
'vbKeyInsert 0x2D INSERT 键
'vbKeyDelete 0x2E DELETE 键
'vbKeyHelp 0x2F HELP 键
'vbKeyNumlock 0x90 NUM LOCK 键

'A 至 Z 键与 A – Z 字母的 ASCII 码相同：

'常数 值 描述
'vbKeyA 65 A 键
'vbKeyB 66 B 键
'vbKeyC 67 C 键
'vbKeyD 68 D 键
'vbKeyE 69 E 键
'vbKeyF 70 F 键
'vbKeyG 71 G 键
'vbKeyH 72 H 键
'vbKeyI 73 I 键
'vbKeyJ 74 J 键
'vbKeyK 75 K 键
'vbKeyL 76 L 键
'vbKeyM 77 M 键
'vbKeyN 78 N 键
'vbKeyO 79 O 键
'vbKeyP 80 P 键
'vbKeyQ 81 Q 键
'vbKeyR 82 R 键
'vbKeyS 83 S 键
'vbKeyT 84 T 键
'vbKeyU 85 U 键
'vbKeyV 86 V 键
'vbKeyW 87 W 键
'vbKeyX 88 X 键
'vbKeyY 89 Y 键
'vbKeyZ 90 Z 键

'0 至 9 键与数字 0 – 9 的 ASCII 码相同：

'常数 值 描述
'vbKey0 48 0 键
'vbKey1 49 1 键
'vbKey2 50 2 键
'vbKey3 51 3 键
'vbKey4 52 4 键
'vbKey5 53 5 键
'vbKey6 54 6 键
'vbKey7 55 7 键
'vbKey8 56 8 键
'vbKey9 57 9 键

'
'下列常数代表数字键盘上的键:

'常数 值 描述
'vbKeyNumpad0 0x60 0 键
'vbKeyNumpad1 0x61 1 键
'vbKeyNumpad2 0x62 2 键
'vbKeyNumpad3 0x63 3 键
'vbKeyNumpad4 0x64 4 键
'vbKeyNumpad5 0x65 5 键
'vbKeyNumpad6 0x66 6 键
'vbKeyNumpad7 0x67 7 键
'vbKeyNumpad8 0x68 8 键
'vbKeyNumpad9 0x69 9 键
'vbKeyMultiply 0x6A MULTIPLICATION SIGN (*) 键
'vbKeyAdd 0x6B PLUS SIGN (+) 键
'vbKeySeparator 0x6C ENTER 键
'vbKeySubtract 0x6D MINUS SIGN (–) 键
'vbKeyDecimal 0x6E DECIMAL POINT (.) 键
'vbKeyDivide 0x6F DIVISION SIGN (/) 键

'下列常数代表功能键:

'常数 值 描述
'vbKeyF1 0x70 F1 键
'vbKeyF2 0x71 F2 键
'vbKeyF3 0x72 F3 键
'vbKeyF4 0x73 F4 键
'vbKeyF5 0x74 F5 键
'vbKeyF6 0x75 F6 键
'vbKeyF7 0x76 F7 键
'vbKeyF8 0x77 F8 键
'vbKeyF9 0x78 F9 键
'vbKeyF10 0x79 F10 键
'vbKeyF11 0x7A F11 键
'vbKeyF12 0x7B F12 键
'vbKeyF13 0x7C F13 键
'vbKeyF14 0x7D F14 键
'vbKeyF15 0x7E F15 键
'vbKeyF16 0x7F F16 键

追问

谢谢