Ayuda con funcion keypress
Ungsec
14 de Febrero del 2004
Necesito que alguien me ayude con lo siguiente:
al momento de oprimir alguna tecla necesito que el evento keypress me ligue a otra ventana, es decir:
Private Sub Text1_KeyPress(KeyAscii As Integer)
if keyascii = 13 then
frm2.show
end if
End Sub
Yo se que este codigo funciona, pero lo que necesito no es que se abra al momento de dar enter, sino cualquier tecla de funcion especial, ya sea insert, F1,2,3...etc.
No se si alguien del foro me pudiera ayudar con las equivalencias de las teclas o la forma de hacer que funcione mi codigo.
De antemano muchas gracias
al momento de oprimir alguna tecla necesito que el evento keypress me ligue a otra ventana, es decir:
Private Sub Text1_KeyPress(KeyAscii As Integer)
if keyascii = 13 then
frm2.show
end if
End Sub
Yo se que este codigo funciona, pero lo que necesito no es que se abra al momento de dar enter, sino cualquier tecla de funcion especial, ya sea insert, F1,2,3...etc.
No se si alguien del foro me pudiera ayudar con las equivalencias de las teclas o la forma de hacer que funcione mi codigo.
De antemano muchas gracias
Der Fuhrer
14 de Febrero del 2004
F1=112 F2 =113 F3= 114 ...
Insert = 45
Delete = 46
Inicio = 36
Fin = 35
Esc = 27
usa este codigo en un form vacio para que averigues los demás
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
MsgBox KeyCode
End Sub
PD es en el evento keydown
Insert = 45
Delete = 46
Inicio = 36
Fin = 35
Esc = 27
usa este codigo en un form vacio para que averigues los demás
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
MsgBox KeyCode
End Sub
PD es en el evento keydown
Ungsec
14 de Febrero del 2004
Muchas gracias