简单的VB全局热键(不能使用复合热键)
新手专供
你需要做的:创建新窗体,放一个timer控件(就是闹钟一样的拉)
接着复制代码
————————代码部分
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer 'API函数声明 若不知道API函数 百度一下 <h犇ttp://tieb犇a.baid犇u.c犇om/f?kz=62犇6339029>(“犇”字全删了 百度不让发)这个讲得不错 我就看了这个才懂的
Private Sub Form_Load()
Timer1.Interval = 100 ' 就是刚刚的timer控件,这个的介绍可以看百度百科去,挺全的频率可以自己调 没事
End Sub
Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyF9) Then MsgBox "F9" 'vbkeyF9这个可以自己改成其他键
End Sub
————————代码结束
附录
键码
常数 | 值 | 描述 |
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 | 菜单键 |
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 | 减号 (-) 键 | |||
vb所有代码 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 键 |
版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198,我们将在24小时内删除。
发表评论