Visual Basic.NET - Evento al pulsar mas de una tecla a la vez

   
Vista:

Evento al pulsar mas de una tecla a la vez

Publicado por BIKI (38 intervenciones) el 18/05/2012 12:01:41
Buenas a todos,

Necesito que un listBox se muestre o no en un formalio solo cuando se teclee una combinacion de teclas. Se como hacerlo para una unica tecla pero como puedo hacer para que se lance cuando se teclle la combinacion establecida por mi.(Ctrl+alt+shift+f1)

La funcion que tengo es la siguiente:

1
2
3
4
5
6
7
8
9
10
Private Sub intro_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
 
        If e.KeyCode = Keys.Alt And e.KeyCode = Keys.Control And e.KeyCode = Keys.Shift And e.KeyCode = Keys.F1 Then
            If Me.ListBox1.Visible = True Then
                Me.ListBox1.Visible = False
            Else
                Me.ListBox1.Visible = True
            End If
        End If
    End Sub


Gracias por todo.
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

Evento al pulsar mas de una tecla a la vez

Publicado por David (46 intervenciones) el 18/05/2012 18:41:31
Hola Biki,
podrias intentar poner un MenuStrip en tu form, en una pestaña poner tu codigo, activar tus Shortcuts(Ctrl+alt+shift+f1) y finalmente ocultar el MenuStrip
bueno es una idea
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

Evento al pulsar mas de una tecla a la vez

Publicado por biki (38 intervenciones) el 22/05/2012 12:12:01
He aqui la respuesta las teclas shift control y alat tienen un tratamiento especial en el evento

Private Sub intro_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown

If e.Alt = True And e.Control = True And e.Shift = True And e.KeyCode = Keys.F1 Then
If Me.ListBox1.Visible = True Then
Me.ListBox1.Visible = False
Else
Me.ListBox1.Visible = True
End If
End If
End Sub
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