Ignorer le Tab Order (flèches)

Version imprimable

23/05/2019, 13h38
__bv__

Ignorer le Tab Order (flèches)

Bonjour,
Est il possible (facile?) de passer outre le Tab Order dans un Windows Form ? J'ai codé des actions sur le KeyDown event mais je suis obligé d'utiliser d'autres touches du clavier car les les flèches répondent au Tab Order du Form.
Merci par avance.
Bruno
23/05/2019, 15h52
Phil Rob

Bonjour Bruno,

Lorsque la propriété KeyPreview du Form a la valeur True, il est possible d'obtenir les codes de toutes les touches dans le e.KeyCode de l'événement KeyDown du Form, et donc de les gérer à sa guise.
Une touche échappe à cela, c'est la touche TAB qui continue à provoquer les déplacements entre les contrôles dont la propriété TabStop est True. Mais si on parcourt le Form en plaçant à False la propriété TabStop de chaque composant, alors la touche Tab n'a plus aucun effet.

J'espère que ceci t'inspirera ...
23/05/2019, 17h29
__bv__

Merci Phil pour ta réponse. Je n'avais pas pensé au TabStop en effet.
Toutefois, les touches Up, Down, Left, Right (flèches sur le clavier) déplacent toujours le curseur entre les contrôles.
Y aurait il une autre astuce ?
Bruno

Oui mais tu peux gérer

Fais donc ce test :

Code:

1
2
3
4
5
6
7
8
9
 
    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
   '     MessageBox.Show(e.KeyCode & " " & e.KeyData & " " & e.KeyValue)
        If e.KeyCode = 39 Then Button1_Click(Me, Nothing) 'KeyCode 39 = flèche vers la droite
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MessageBox.Show("Button1")
    End Sub

Bonne soirée

24/05/2019, 19h37
__bv__
Merci Phil mais il doit y avoir un paramètre qui intercepte le KeyDown event...
J'ai créé une app WinForm de zéro avec juste un Label et activé le Keydown event:
Code:

1 2 3 4 Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown Label1.Text = CStr(e.KeyCode) End Sub
J'ai alors bien une réponse à toutes les touches enfoncées, le code de la touche affiché sur le Label1.
J'ajoute ensuite juste un bouton Close sur le Form, et là plus rien...
24/05/2019, 23h17
Phil Rob

Bonsoir Bruno,

Je viens de faire le même test que toi et je constate la même chose que toi.
C'est le bouton qui a le focus et c'est lui qui reçoit les KeyDown, et non plus le Form.
Le bouton est dans ce cas, le premier composant "focusable". Mets-lui la propriété TabStop à False et ton problème sera réglé (dans cet exemple).

Le label n'a pas de TabStop et n'est pas accessible par la touche Tab.

...
25/05/2019, 11h25
__bv__

Hello Phil
Merci ! Ça a l'air de marcher sur l'exemple.
Bizarrement, dans un programme un peu plus complexe avec une bonne douzaine de contrôles sur le MainForm (tous à TabStop = False), les touches enfoncées sont bien détectées mais les flèches renvoient le Keycode seulement après avoir fait un cycle complet des tabs.
Il doit y avoir une interception possible encore plus en amont j'imagine. En tout cas, ça n'est qu'un détail maintenant :-)
Bon congé de fin de semaine
Bruno

Merci Bruno.
Mais avant de partir en week-end, je voulais encore te faire essayer ceci (sur ton exemple simple d'hier) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Public Class Form1
    Inherits Form           ' !!!!!!!!!!!!!!!!!!!!!
 
    Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean
        Static HandleActif As Boolean = False
        If keyData = Keys.Tab Then
            If HandleActif Then
                RemoveHandler MyBase.KeyDown, AddressOf Form1_KeyDown
                HandleActif = False
            End If
        Else
            If Not HandleActif Then
                AddHandler MyBase.KeyDown, AddressOf Form1_KeyDown
                HandleActif = True
            End If
        End If
    End Function
 
    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) ' Handles MyBase.KeyDown ' !!!!!!!!!
        Label1.Text = CStr(e.KeyCode)
    End Sub
 
End Class

Bon week-end à toi aussi :D

26/05/2019, 11h17
__bv__

Merci Phil. Je ne veux vraiment pas t'importuner davantage mais ces Handlers me dépassent un peu.
Tu me conseilles de répéter ton code pour les 4 flèches ?
Bon dimanche
Bruno

Bonjour Bruno,

Il est possible d'écrire des Event et de les "associer" à toute procédure que tu peux souhaiter, mais sans entrer dans l'étude des événements, tu peux simplement constater qu'une la ligne d'entête d'une procédure de réponse événementielle, par exemple la réponse au clic d'un bouton, se termine toujours par Handles NomDuComposant.NomDeLEvenement. Dans ton exemple :
Code:

1 2 3 4 5 6 7 Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs) Handles MyBase.KeyDown Label1.Text = CStr(e.KeyCode) End Sub Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click ' ... End Sub
Le code que je t'ai envoyé exploite une fonction de la classe Form, uniquement accessible dans une classe dérivée, d'où la ligne Inherits Form.
Cette fonction est déclarée ici Overrides Function ProcessCmdKey( ... .... Ceci signifie que mon code remplace celui de la fonction dans sa classe (en supposant qu'elle contienne effectivement du code, ce qui n'est pas obligatoire ...).

Les codes RemoveHandler MyBase.KeyDown, AddressOf Form1_KeyDown et AddHandler MyBase.KeyDown, AddressOf Form1_KeyDown peuvent être employés ordinairement dans tes programmes pour d'autres événements et d'autres procédures : tu peux ainsi suspendre momentanément "l'écoute" d'un événement sur un composant donné, et la réactiver à ta guise.

J'en détourne largement l'usage de ProcessCmdKey (je ne l'utilise notamment pas comme fonction, aucune valeur de retour). Comme cette fonction est utilisée dans la classe Form avant la prise en compte de l'événement MyBase.KeyDown, j'en profite pour désactiver cet événement lorsque que je ne veux pas la prise en compte de la touche pressée et je le réactive quand la touche me convient.
Soit, c'est un outils parmi d'autres ...
Tu trouveras sur le Web d'autres façons d'utiliser ProcessCmdKey mais comme toujours, tout n'est pas bon à prendre ...

J'espère que ces explications t'aideront.

A bientôt

Merci Phil, je vais explorer tout ça... quand mon programme arrêtera de me jeter des bâtons dans les roues ! ;-)

Le dernier en date étant à la compilation:

Citation:

Severity Code Description Project File Line Suppression State
Error BC36970 Failed to emit module 'SOAP.exe'. SOAP C:\TWS API\samples\VB\VB_API_Sample\vbc 1 Active

Alors que je ne vois nulle part un fichier appelé 'vbc'

Ah les sempiternels mystères de la programmation....
L'erreur BC36790 qui bloquait la compilation provenait de la ligne de déclaration strSymbolsFile que je viens de changer de Const à simplement Dim. :?
Je vais pouvoir retourner à l'exploration des Key Events :D
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Dim sPath As String = Path.Combine(CurrentFolder, "Settings") If Not Directory.Exists(sPath) Then Directory.CreateDirectory(sPath) ' should check for possible errors Else End If Dim i As Integer Dim sw As StreamWriter Const Comma As String = "," Try Dim strSymbolsFile As String = sPath + "\Symbols.csv" If Not FileInUse(strSymbolsFile) Then If File.Exists(strSymbolsFile) Then File.Delete(strSymbolsFile) End If sw = File.CreateText(strSymbolsFile) etc etc

28/05/2019, 13h36
Phil Rob

1 pièce(s) jointe(s)

Bravo !

Pour info, vbc est le compilateur VB de VisualStudio. Tu en as beaucoup sur ton disque système, et d'autant plus que tu aurais comme moi plusieurs versions de VS.

Un tout petit extrait des résultats d'une recherche :

Pièce jointe 478799