Discussion :

[HENRYC]

Bonjour,

Dans ma form, j'ai un control panel, qui est visible selon certaines conditions.
dans ce panel figurent des champs texBox.

J'aimerai que lorsque ce panel est visible, la touche tabulation donne le focus uniquement aux textbox du panel sans aller aux autres textbox de la Form.

Tant qu'à faire j'aimerai éviter d'être obligé de changer la valeur du tabstop de chaque texbox.

Si quelqu'un connait un moyen plus simple.

Merci.

[morgand]

Tu as essayé de capter l'évènement pression sur le clavier dans la fenêtre principale ?

[Graffito]

Essaye de jouer avec la propriété TabStop du/des Panel.

[chrismonoye]

Bonjour,
je ne sais si c'est plus simple, mais on ne touche pas aux propriétés des TextBox.
De plus la touche Tab est une touche spéciale.
Voici une méthode parmi d'autres.

Au préalable, les TextBox du Panel sont enregistrées dans une liste et abonnées aux événements indiqués :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    Dim lstTxtbxInPnl2 As New List(Of Control)
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        For Each txtCrl In Me.Panel2.Controls.OfType(Of TextBox)()
            lstTxtbxInPnl2.Add(txtCrl)
            AddHandler txtCrl.PreviewKeyDown, AddressOf txtBx_PreviewKeyDown
            AddHandler txtCrl.KeyDown, AddressOf txtBx_KeyDown
        Next
 
    End Sub

Ensuite PreviewKeyDown force l'application à considérer la touche Tab comme normale et donc à traiter KeyDown.
Qui lui boucle sur la liste des Textbox du Panel concerné :

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
21
    Private Sub txtBx_PreviewKeyDown(ByVal sender As Object, ByVal e As PreviewKeyDownEventArgs)
        e.IsInputKey = True
    End Sub
 
    Private Sub txtBx_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs)
        If e.KeyCode = Keys.Tab Then
            Dim ctrl As Control = Me.ActiveControl
 
            If lstTxtbxInPnl2.Contains(ctrl) Then
                Dim it As Int32 = lstTxtbxInPnl2.IndexOf(ctrl)
                If it < lstTxtbxInPnl2.Count - 1 Then
                    ctrl = lstTxtbxInPnl2.Item(it + 1)
                    ctrl.Select()
                Else
                    ctrl = lstTxtbxInPnl2.Item(0)
                    ctrl.Select()
                End If
                e.Handled = True
            End If
        End If
    End Sub

Nb : les textbox sont entrées dans la liste dans l'ordre de leur création (voir Form*.Designer.vb du projet).

[HENRYC]

Bon, comme il n'existe pas de solution simple et rapide
Je suis passé par le reglage du tabstop des controles
en fonction d'un évenement.

Merci pour vos solutions.