Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => Programación Visual Basic => Mensaje iniciado por: mapers en 7 Agosto 2011, 08:24 AM

Título: Cerrar un formulario con la tecla escape
Publicado por: mapers en 7 Agosto 2011, 08:24 AM
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
Título: Re: Cerrar un formulario con la tecla escape
Publicado por: raul338 en 7 Agosto 2011, 08:28 AM
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 :xD
Título: Re: Cerrar un formulario con la tecla escape
Publicado por: mapers en 7 Agosto 2011, 08:51 AM
KeyPreview que es men  o que es lo que influye en el resto de metodos ????????
Título: Re: Cerrar un formulario con la tecla escape
Publicado por: raul338 en 7 Agosto 2011, 08:54 AM
Google No Muerde  ;D (http://www.elguille.info/vb/cursos_vb/BASICO/BASICO24.HTM)
Título: Re: Cerrar un formulario con la tecla escape
Publicado por: mapers en 7 Agosto 2011, 09:24 AM
ya oks si tengo ese tutorial pero hay dice

Código (vb) [Seleccionar]

Private Sub Text1_KeyPress(KeyAscii As Integer)


y yo cuando hago click en KeyPress del metodo me sale

Código (vb) [Seleccionar]

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
Título: Re: Cerrar un formulario con la tecla escape
Publicado por: Sanlegas en 7 Agosto 2011, 20:15 PM
Código (vb) [Seleccionar]
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
Título: Re: Cerrar un formulario con la tecla escape
Publicado por: Luna71c0 en 8 Agosto 2011, 00:35 AM
Código (vb) [Seleccionar]

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


Probalo :B