Discussion :

[sibama]

Bonjour à tous,

je cherche à détecter la saisie des différentes touches du clavier dans un TextBox, chose que je réussi à faire via le code suivant:

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
    Private Sub TextBoxLu_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBoxLu.KeyDown
 
        ' Mise à jour du fichier de traces
        MaJTrace("Valeur du texte: " & Me.TextBoxLu.Text & ") | Saisie clavier: " & AssociationClavierValeur.keyvalue(e.KeyValue))
 
        ' Suppression des appuis de touche sur caractères non voulus
        Select Case e.KeyCode
            Case Keys.A, Keys.B, Keys.C, Keys.D, Keys.E, Keys.F, Keys.G, Keys.H, Keys.I, Keys.J, Keys.K, Keys.L, Keys.M, Keys.N, Keys.O, Keys.P, Keys.Q, Keys.R, Keys.S, Keys.T, Keys.U, Keys.V, Keys.W, Keys.X, Keys.Y, Keys.Z, Keys.NumPad0, Keys.NumPad1, Keys.NumPad2, Keys.NumPad3, Keys.NumPad4, Keys.NumPad5, Keys.NumPad6, Keys.NumPad7, Keys.NumPad8, Keys.NumPad9, Keys.Back, Keys.Right, Keys.Left, Keys.Home, Keys.End, Keys.Delete
                ' Touche autorisée, on ne fait rien
            Case Else
                ' touche non autorisée, on l'ignore
                e.SuppressKeyPress = True
        End Select
 
    End Sub

Cependant je ne réussi pas faire la différence entre l'appui des touches droites et gauches du clavier pour les "fonctions" SHIFT et CTRL.
Sur MSDN, ils parlent bien de Rightshift, Leftshift, Rightctrl, Leftctrl associés à e.keys, mais je n'ai pas de e.keys dans keyeventargs??? du coup je peux détecter SHIFT et CTRL mais sans savoir si cela vient des touches droites de mon clavier ou de la gauche.

En fait j'ai un clavier de dessiné sous ma textbox pour préciser les touches autorisées ou non et je voudrais l'animer en fonction de la touche appuyée d'ou la nécessité de connaitre chaque touche.

Merci d'avance de vos réponses.

[chaparo]

Bonjour Sibama,

Code :

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

1
2
3
4
5
6
 
Private Sub Chart1_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles Chart1.KeyDown
        If e.KeyCode = Keys.LControlKey Or e.KeyCode = Keys.RControlKey Then
 
        End If
End Sub

[sibama]

Merci pour ta réponse chaparo, mais dans ma TextBox, ça ne marche pas super, en fait les keycode .rshiftkey/.lcontrolkey... ne sont pas reconnus (je peux bien les mettre dans mon code, mais un test sur eux ne donne rien), c'est le générique .shiftkey/.controlkey qui est reconnu.

Par contre, à partir de ton exemple, j'ai trouvé ce code sur le net :

Code :

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

    Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal key As Keys) As Short

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
     If e.KeyCode = Keys.ShiftKey Then
            If Convert.ToBoolean(GetAsyncKeyState(Keys.LShiftKey)) Then
                MessageBox.Show("Left Shift Key Pressed")
            End If
 
            If Convert.ToBoolean(GetAsyncKeyState(Keys.RShiftKey)) Then
                MessageBox.Show("Right Shift Key Pressed")
            End If
        End If
 
        If e.KeyCode = Keys.ControlKey Then
            If Convert.ToBoolean(GetAsyncKeyState(Keys.LControlKey)) Then
                MessageBox.Show("Left Control Key Pressed")
            End If
 
            If Convert.ToBoolean(GetAsyncKeyState(Keys.RControlKey)) Then
                MessageBox.Show("Right Control Key Pressed")
            End If
        End If

qui lui fonctionne, je vais donc adapter ça pour gérer ces BEEP de touches.

Merci encore à toi.