Ver Mensaje Individual
  #1 (permalink)  
Antiguo 16/05/2005, 09:22
ezequiel_kinyo
 
Fecha de Ingreso: enero-2005
Mensajes: 20
Antigüedad: 20 años, 1 mes
Puntos: 0
Exclamación 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