Lo que dices X.Cyclop es que hagas una tecla de acceso directo, que es ALT + &, siendo este símbolo uno de los caracteres de la caption del botón. P.ej:
Command1.Caption = "Hol&a"
ALT + A lanzará el Command1_Click ()
Command2.Caption = "Ho&la"
ALT + L lanzará el Command2_Click ()
Pero como eso probablemente no te sirva, podrías leer lo que devuelva el evento KeyPress o KeyDown del elemento X (X puede ser un Form, un commandbutton........) . Sin embargo, esto me parece estúpido porque sólo podrias saber si el usuario ha pulsado esa secuencia si tiene el foco en el elemento X. Asi que eso tampoco te sirve.
Lo que si te servirá es usar GetAsyncKeyState, (como siempre lo mejor es que uses
APIs para estas cosas xD). Es sencillísimo. Mira el ejemplo
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Const VK_F3 = &H72
Private Sub tmrCapture_Timer()
If GetAsyncKeyState(VK_F3) Then MsgBox "¡Pulsaste F3!"
End Sub
Saludos
Autor
En línea
