Cerrar un formulario con la tecla escape

[mapers]

Buenas señores del foro les comento que estoy hacindo un aplicacion en visual basic 6.0 todo bien hiba hasta que me dijeron que cerra los formualrios con la tecla escape y no cuando hago clic sobre la cruz .Cual seria el evento para este caso ??? gracias

[raul338]

Pones la propiedad KeyPreview del formulario en True y en el evento KeyDown del Form verificas si es la tecla Escape (según el parametro KeyCode) y ahí cierras o haces lo que se te cante

[mapers]

KeyPreview que es men  o que es lo que influye en el resto de metodos ????????

[raul338]

Google No Muerde 

[mapers]

ya oks si tengo ese tutorial pero hay dice

Código (vb) [Seleccionar] Expandir


Private Sub Text1_KeyPress(KeyAscii As Integer)


y yo cuando hago click en KeyPress del metodo me sale

Código (vb) [Seleccionar] Expandir


Private Sub Form_KeyPress(KeyAscii As Integer)


no es igual ????

No cierra dame un ejemplo en codigo porfa:

Bueno ya me salio como  me dijistes gracias por todo

[Sanlegas]

Código (vb) [Seleccionar] Expandir

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then
    If MsgBox("¿Esta seguro que desea salir?", vbQuestion + vbYesNo, Form1.Caption) = vbYes Then End
End If
End Sub

[Luna71c0]

Código (vb) [Seleccionar] Expandir


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyEscape Then
        Unload Me
    End If
End Sub


Probalo :B