salir de programa
Publicado por raul (60 intervenciones) el 04/09/2001 03:38:11
Hola a todos,
Necesito saber como salir del programa usando la tecla escape: tengo la siguiente sentencia, no tengo barra de titulo en form.
Private Sub cUsuario_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then
----- lo que necisto lo que va aqui como lo hago ???
End If
If KeyAscii = 13 Then
cClave.SetFocus
End If
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub
Necesito saber como salir del programa usando la tecla escape: tengo la siguiente sentencia, no tengo barra de titulo en form.
Private Sub cUsuario_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then
----- lo que necisto lo que va aqui como lo hago ???
End If
If KeyAscii = 13 Then
cClave.SetFocus
End If
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub
Valora esta pregunta


0