Ayuda con una tecla
Hola, te agradecería mucho me pudieras ayudar con el siguiente problema, quiero llamar un formulario de ayuda, esto lo hago con este código
Sub Text2_KeyDown(KeyCode As Integer, Tecla As Integer)
If KeyCode = vbKeyF2 Then ' GENERANDO AYUDA
If TeclaDown Then
ElseIf Tecla = 0 Then
Form4.Visible = True
End If
End If
End Sub
El problema es que como esta definido en keydown, solo funciona si el enfoque esta sobre ese TextBox, la idea es hacer que al presionar F2, llame la ayuda, sin estar necesariamente en ese text.
Desde ya muchas gracias
Sub Text2_KeyDown(KeyCode As Integer, Tecla As Integer)
If KeyCode = vbKeyF2 Then ' GENERANDO AYUDA
If TeclaDown Then
ElseIf Tecla = 0 Then
Form4.Visible = True
End If
End If
End Sub
El problema es que como esta definido en keydown, solo funciona si el enfoque esta sobre ese TextBox, la idea es hacer que al presionar F2, llame la ayuda, sin estar necesariamente en ese text.
Desde ya muchas gracias
1 Respuesta
Respuesta de rogersr
1
Defines el código en el Evento KeyDown del Form:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF2 Then ' GENERANDO AYUDA
If TeclaDown Then
ElseIf Tecla = 0 Then
Form4.Visible = True
End If
End If
End Sub
Y en las propiedades del Form estableces la Propiedad KeyPreview a True. Deberá funcionar.
Suerte !
Rogers R.
PUES. No olvides la valoración.
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF2 Then ' GENERANDO AYUDA
If TeclaDown Then
ElseIf Tecla = 0 Then
Form4.Visible = True
End If
End If
End Sub
Y en las propiedades del Form estableces la Propiedad KeyPreview a True. Deberá funcionar.
Suerte !
Rogers R.
PUES. No olvides la valoración.
