
16/05/2005, 09:22
|
| | Fecha de Ingreso: enero-2005
Mensajes: 20
Antigüedad: 20 años, 1 mes Puntos: 0 | |
porq no anda este keypress HOla tengo esta simple sentencia... pero me di cuenta q solo me funciona una sola vez.
y no me digan q tengo q tener el keypreview activado porq no funciona y tampoc q lo haga con keypress porq sucede lo mismo.
BUeno les planteo este desafio y los dejo con la intriga desde ya gracias.
Private Sub Form1_KeyDown(ByVal sender As Object, _
ByVal e As System.Windows.Forms.KeyEventArgs) _
Handles MyBase.KeyDown
If e.KeyCode = Keys.Escape Then
me.close()
End If
End Sub
Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
e.Cancel = (MsgBox("¿Confirma que desea abandonar la aplicación?", MsgBoxStyle.Question Or MsgBoxStyle.YesNo, "Funeraria Roldan") = MsgBoxResult.No)
End Sub |