Cómo escribir código VB para monitorear globalmente los eventos de activación de teclas de acceso rápido
Función de declaración privada GetAsyncKeyState Lib "user32" (ByVal vKey As Long) Como declaración API de entero, esto se usa para determinar la clave Si se presiona, si se presiona, el valor de retorno es 0. Si no se presiona la tecla, el valor de retorno es 0
Dim flag As Boolean
Private Sub Form_Load()
flag = False
End Sub
Private Sub Timer1_Timer() 'Usa el reloj para juzgar continuamente, un período de 100 es suficiente
'Esto es para seguir presionando Activar evento
'Si GetAsyncKeyState(vbKeyA) <> 0 Entonces 'Presione a, vbkeya Ver más abajo
'Form1.Left = Form1.Left - 100
' Else 'No presionado
'Finalizar si
'Los siguientes son eventos que se activarán al presionar solo una vez
Si GetAsyncKeyState(vbKeyA) <> 0 Luego 'presionó a, vbkeya Ver a continuación
Si flag = False Entonces 'La primera vez, presione Una segunda vez o más para omitir
Form1.Left = Form1.Left - 100
Finalizar si
flag = True
Else 'No presionado
flag = False 'No presionar A para continuar
End If
End Sub
'--------------------- -----------abajo Se hace referencia a las siguientes constantes clave
'Descripción del valor constante
'vbKeyLButton 0x1 botón izquierdo del mouse
' vbKeyRButton 0x2 botón derecho del ratón
' vbKeyCancel 0x3 tecla CANCELAR
'vbKeyMButton 0x4 botón central del ratón
'vbKeyBack 0x8 tecla RETROCESO
' vbKeyTab 0x9 Tecla TAB
'vbKeyClear0xC Tecla CLEAR
'vbKeyReturn 0xD Tecla ENTER
'vbKeyShift 0x10 Tecla SHIFT
'vbKeyControl 0x11 tecla CTRL
' vbKeyMenu 0x12 tecla de menú
'vbKeyPause0x13 tecla PAUSA
'vbKeyCapital 0x14 tecla BLOQ MAYÚS
'vbKeyEscape 0x1B Tecla ESC
'vbKeySpace 0x20 Barra espaciadora
'vbKeyPageUp 0x21 Tecla ARRIBA PÁG
'vbKeyPageDown 0x22 Tecla AV PÁG
'vbKeyEnd 0x23 FIN key
'vbKeyHome 0x24 Tecla INICIO
'vbKeyLeft 0x25 Tecla FLECHA IZQUIERDA
'vbKeyUp 0x26 Tecla FLECHA ARRIBA
'vbKeyRight 0x27 Tecla FLECHA DERECHA
'vbKeyDown 0x28 Tecla FLECHA ABAJO
'vbKeySelect 0x29 SELECCIONAR clave
'vbKeyPrint0x2A Tecla IMPRIMIR PANTALLA
'vbKeyExecute 0x2B Tecla EJECUTAR
'vbKeySnapshot 0x2C Tecla INSTANTÁNEA
'vbKeyInsert 0x2D Tecla INSERTAR
'vbKeyDelete 0x2EDELETE key
'vbKeyHelp 0x2F HELP key
'vbKeyNumlock 0x90 NUM LOCK key
'Teclas de la A a la Z con la letra A - El código ASCII de Z es el mismo que Z:
'Descripción del valor constante
'vbKeyA 65 A key
'vbKeyB 66 B key
'tecla vbKeyC 67 C
'tecla vbKeyD 68 D
'tecla vbKeyE 69 E
'tecla vbKeyF 70 F
'vbKeyG 71 Tecla G
'vbKeyH 72 Tecla H
'vbKeyI 73 Tecla I
'vbKeyJ 74 Tecla J
'tecla vbKeyK 75 K
'tecla vbKeyL 76 L
'tecla vbKeyM 77 M
'tecla vbKeyN 78 N
' tecla vbKeyO 79 O
'tecla vbKeyP 80 P
'tecla vbKeyQ 81 Q
'tecla vbKeyR 82 R
'vbKeyS 83 Tecla S
'vbKeyT 84 Tecla T
'vbKeyU 85 Tecla U
'vbKeyV86 Tecla V
'vbKeyW 87 Tecla W
'vbKeyX 88 Tecla X
'vbKeyY 89 Tecla Y
'vbKeyZ 90 Tecla Z
'Teclas 0 a 9 con el número 0 - El código ASCII de 9 es el mismo que 9:
' Descripción del valor constante
'vbKey0 48 0 key
'vbKey1 49 1 clave
'vbKey2 50 2 teclas
'vbKey3 51 3 teclas
'vbKey4 52 4 teclas
'vbKey5 53 5 teclas
'vbKey6 54 6 teclas
'vbKey7 55 7 teclas
'vbKey8 56 8 teclas
'vbKey9 57 9 teclas
'
'Las siguientes constantes representan teclas en el teclado numérico:
'Descripción del valor constante
'vbKeyNumpad0 0x60 0 tecla
'vbKeyNumpad1 0x61 1 tecla
'vbKeyNumpad2 0x622 tecla
'vbKeyNumpad3 0x63 3 teclas
'vbKeyNumpad4 0x64 4 teclas
'vbKeyNumpad5 0x65 5 teclas
'vbKeyNumpad6 0x66 6 teclas
'vbKey
Numpad7 0x67 7 teclas
'vbKeyNumpad8 0x68 8 teclas
'vbKeyNumpad9 0x69 9 teclas
'vbKeyMultiply 0x6A Tecla de símbolo de cálculo múltiple (*)
'vbKeyAdd 0x6B Tecla SIGNO MÁS (+)
'vbKeySeparator 0x6C Tecla ENTER
'vbKeySubtract 0x6D Tecla SIGNO MENOS (-)
'vbKeySubtract 0x6D MENOS Tecla SIGN ()
'vbKeyDecimal 0x6E Tecla PUNTO DECIMAL (.)
'vbKeyDivide 0x6F DIVISIÓN Tecla SIGN (/)
'Las siguientes constantes representan teclas de función :
'Descripción del valor constante
'vbKeyF1 0x70 tecla F1
'vbKeyF2 0x71 tecla F2
'vbKeyF3 0x72 tecla F3
'vbKeyF4 0x73 tecla F4
'vbKeyF5 0x74 tecla F5
'vbKeyF6 0x75 tecla F6
'vbKeyF7 0x76 tecla F7
'tecla vbKeyF8 0x77F8
' tecla vbKeyF9 0x78 F9
'tecla vbKeyF10 0x79 F10
'tecla vbKeyF11 0x7A F11
' vbKeyF12 0x7B Tecla F12
'vbKeyF13 0x7C Tecla F13
'vbKeyF14 0x7D Tecla F14
'vbKeyF15 0x7E Tecla F15
'vbKeyF16 0x7F Tecla F16