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.