VB全局热键(快捷键)

'窗体代码：
Private Declare Function GetActiveWindow Lib “user32” () As Long
Private Declare Function GetAsyncKeyState Lib “user32” (ByVal vKey As Long) As Integer

Private Sub Form_Load()
Me.KeyPreview = True
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'如果窗体失去焦点，热键无效
If GetActiveWindow <> Me.hwnd Then Exit Sub
'Esc退出程序
If GetAsyncKeyState(vbKeyEscape) Then KeyCode = 0: End
'F12最大化窗口
If GetAsyncKeyState(vbKeyF12) Then KeyCode = 0: Me.WindowState = 2
'F1窗口最小化
If GetAsyncKeyState(vbKeyF1) Then KeyCode = 0: Me.WindowState = 1
End Sub
'-------------------------------------------------------------------------------------------------------------------------
'相应的VB键码
常数------------------------------值-------------描述
vbKeyLButton-----------------[1]-------------鼠标左键
vbKeyRButton-----------------[2]-------------鼠标右键
vbKeyCancel-------------------[3]-------------CANCEL 键
vbKeyMButton-----------------[4]-------------鼠标中键
vbKeyBack---------------------[8]--------------BACKSPACE 键
vbKeyTab-----------------------[9]--------------TAB 键
vbKeyClear--------------------[12]-------------CLEAR 键
vbKeyReturn------------------[13]-------------ENTER 键
vbKeyShift---------------------[16]-------------SHIFT 键
vbKeyControl-----------------[17]-------------CTRL 键
vbKeyMenu-------------------[18]-------------Alt 菜单键
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--------[96]----------0 键
vbKeyNumpad1--------[97]----------1 键
vbKeyNumpad2--------[98]----------2 键
vbKeyNumpad3--------[99]----------3 键
vbKeyNumpad4--------[100]--------4 键
vbKeyNumpad5--------[101]--------5 键
vbKeyNumpad6--------[102]--------6 键
vbKeyNumpad7--------[103]--------7 键
vbKeyNumpad8--------[104]--------8 键
vbKeyNumpad9--------[105]--------9 键
vbKeyMultiply-----------[106]-------乘号 (*) 键
vbKeyAdd----------------[107]-------加号 (+) 键
vbKeySeparator--------[108]-------ENTER 键（在数字小键盘上）
vbKeySubtract----------[109]-------减号 (-) 键
vbKeyDecimal----------[110]-------小数点 (.) 键
vbKeyDivide------------[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 键