Evenement KeyDown sur Panel
Bonjour,
J'essaye d'utiliser l'evenement KeyDown sur ma Form1. Le but etant d'utiliser les fleches pour faire bouger une serie de Panels sur le Panel2 d'un SplitContainer1.
Malheureusement cela ne marche pas. Si j'appuie sur une touche avec un point d'arret au debut du code, c'est ignore, cela ne rentre meme pas dans la sub.
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
|
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
' Move the mainPanel with CTRL + Arrows
If e.Modifiers = Keys.Control Then
Select Case e.KeyCode
Case Keys.Right
movingMainPanel(10, 0)
e.Handled = True
Case Keys.Left
movingMainPanel(-10, 0)
e.Handled = True
Case Keys.Up
movingMainPanel(0, -10)
e.Handled = True
Case Keys.Down
movingMainPanel(0, 10)
e.Handled = True
End Select
End If
End Sub |
Je ne comprends pas le probleme. Une idee, une explication ou encore mieux une solution a ce probleme serait le bienvenu.
Merci,
A+
JLuc01