Discussion :

[JLuc01]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[JLuc01]

Salut,

Je pensais que le SplitContainer pourrait etre le probleme. Meme si, dans une autre application similaire, cela semble marcher.

J'ai donc fais des tests tres simple:
- dans une application vide:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
' CA MARCHE
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        Beep()
End Sub

- dans une application avec Split Container:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
' CA NE MARCHE PAS
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        Beep()
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
'CA MARCHE
Private Sub SplitContainer1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles SplitContainer1.KeyDown
        Beep()
End Sub

Cependant, l'evenement 'SplitContainer1_KeyDown' ne marche pas dans l'application du message precedent.

Bref, je ne comprends plus rien.

A+
JLuc01

[Sankasssss]

Bonsoir,

regarde du coté de Form.KeyPreview

[JLuc01]

Bien vu. La propriete 'KeyPreview' etait a False.
Maintenant, l'evenement est au moins considere.

Merci,
A+
JLuc01