Visual Basic - Ayuda Urgente!!!

Life is soft - evento anual de software empresarial
 
Vista:

Ayuda Urgente!!!

Publicado por Carlos Calvo Rivas (18 intervenciones) el 29/09/2004 11:21:43
Hola Gente y sobretodo Gracias de antemano...
Tengo un programa con muchas ventanas y quiero hacer que desde cualquiera de ellas, el programa se cierre al presionar una tecla, por ejmplo, 'F6', como podria hacerlo?
GRACIAS
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ayuda Urgente!!!

Publicado por POLA (522 intervenciones) el 29/09/2004 14:28:42
En todos los formularios deberás de asignar a la propiedad KeyPreview el valor True. Luego en cada evento KeyUp del formulario poner este código.

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyF6
End
End Select
End Sub

Puedes pasar este código a un módulo é invocarlo desde cada evento KeyUp de las ventanas.

Espero te sirva. Saludos Pola
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ayuda Urgente!!!

Publicado por Ruri (583 intervenciones) el 01/10/2004 02:04:44
Utilizá el evento KeyDown del formulario. Acordate de colocar la propiedad KeyPreviw del formulari a true. Luego utilizá este código:
Dim v As Variant
For Each v In Forms
If v.Name <> Me.Name Then Unload v
Next

Saludos Ruri
Unload Me
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar