AYUDA CON EL ESC
JO
06 de Marzo del 2006
HOLA ESPERO Q ME PUEDAN AYUDAR
NECESITO CERRA MI FORMULARIO CON EL BOTON ESC, REALIZO LA SGTE ACCION PERO NO ME RESPONDE
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If Shift = 16 Then
If KeyCode = 27 Then
UNLOAD ME
End If
End If
End Sub
HAGO ESTO Y NADA , HABRA OTRA FORMA, POR SIACASO YA PUSE KEYPREVIEW=TRUE EN EL FORM LOAD
NECESITO CERRA MI FORMULARIO CON EL BOTON ESC, REALIZO LA SGTE ACCION PERO NO ME RESPONDE
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If Shift = 16 Then
If KeyCode = 27 Then
UNLOAD ME
End If
End If
End Sub
HAGO ESTO Y NADA , HABRA OTRA FORMA, POR SIACASO YA PUSE KEYPREVIEW=TRUE EN EL FORM LOAD
Rosa
06 de Marzo del 2006
Hola, por qué evaluas si SHIFT = 16? por qué no sólo evaluas el KeyCode?
Otra cosa que puedes hacer es colocar un botón que descargue el formulario y ponerle a ese botón su propiedad Cancel en true, si se presiona la tecla ESC se asocia automáticamente con el evento Clic de ese botón, depende de tí si dejas el botón visible o no.
Otra cosa que puedes hacer es colocar un botón que descargue el formulario y ponerle a ese botón su propiedad Cancel en true, si se presiona la tecla ESC se asocia automáticamente con el evento Clic de ese botón, depende de tí si dejas el botón visible o no.