2024年5月4日发(作者：)

简单的VB全局热键（不能使用复合热键）

新手专供

你需要做的：创建新窗体，放一个timer控件（就是闹钟一样的拉）

接着复制代码

————————代码部分

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer 'API函数

声明 若不知道API函数 百度一下

6339029>（“犇”字全删了 百度不让发）这个讲得不错 我就看了这个才懂的

Private Sub Form_Load()

al = 100 ' 就是刚刚的timer控件，这个的介绍可以看百度百科去，挺全的

频率可以自己调 没事

End Sub

Private Sub Timer1_Timer()

If GetAsyncKeyState(vbKeyF9) Then MsgBox "F9" 'vbkeyF9这个可以自己改成其他键

End Sub

————————代码结束

附录

键码

常数 值 描述

鼠标左键

鼠标右键

CANCEL 键

鼠标中键

BACKSPACE 键

TAB 键

CLEAR 键

ENTER 键

SHIFT 键

CTRL 键

菜单键

vbKeyLButton 1

vbKeyRButton 2

vbKeyCancel 3

vbKeyMButton 4

vbKeyBack

vbKeyTab

vbKeyClear

vbKeyReturn

vbKeyShift

8

9

12

13

16

vbKeyControl 17

vbKeyMenu 18

vbKeyPause 19 PAUSE 键

vbKeyCapital 20 CAPS LOCK 键

vbKeyEscape 27 ESC 键

vbKeySpace 32 SPACEBAR 键

vbKeyPageUp 33 PAGEUP 键

vbKeyPageDown 34 PAGEDOWN 键

vbKeyEnd 35 END 键

vbKeyHome 36 HOME 键

vbKeyLeft 37 LEFT ARROW 键

vbKeyUp 38 UP ARROW 键

vbKeyRight 39 RIGHT ARROW 键

vbKeyDown 40 DOWN ARROW 键

vbKeySelect 41 SELECT 键

vbKeyPrint 42 PRINT SCREEN 键

vbKeyExecute 43 EXECUTE 键

vbKeySnapshot 44 SNAP SHOT 键

vbKeyInser 45 INS 键

vbKeyDelete 46 DEL 键

vbKeyHelp 47 HELP 键

vbKeyNumlock 144 NUM LOCK 键

A 键到 Z 键与其 ASCII 码的相应值'A' 到 'Z'

常数 值 描述

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 键与其 ASCII 码的相应值 '0' 到 '9' 是一致的

常数 值 描述

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

vbKeyNumpad1

vbKeyNumpad2

vbKeyNumpad3

vbKeyNumpad4

vbKeyNumpad5

vbKeyNumpad6

vbKeyNumpad7

vbKeyNumpad8

vbKeyNumpad9

96

97

98

99

100

101

102

103

104

105

值

0 键

1 键

2 键

3 键

4 键

5 键

6 键

7 键

8 键

9 键

乘号 (*) 键

描述

vbKeyMultiply 106

vbKeyAdd 107 加号 (+) 键

ENTER 键（在数字小键盘上）

减号 (-) 键

小数点 (.) 键

除号 (/) 键

vbKeySeparator 108

vbKeySubtract 109

vbKeyDecimal

vbKeyDivide

110

111

功能键

常数 值 描述

vbKeyF1 112 F1 键

vbKeyF2 113 F2 键

vbKeyF3 114 F3 键

vbKeyF4 115 F4 键

vbKeyF5 116 F5 键

vbKeyF6 117 F6 键

vbKeyF7 118 F7 键

vbKeyF8 119 F8 键

vbKeyF9 120 F9 键

vbKeyF10 121 F10 键

vbKeyF11 122 F11 键

vbKeyF12 123 F12 键

vbKeyF13 124 F13 键

vbKeyF14 125 F14 键

vbKeyF15 126 F15 键

vbKeyF16 127 F16 键