Discussion :

[veens777]

bonjour,


je connais la fonction SelectNextControl () qui donne le focus au control suivant mais cela ne résoud pas mon pb...

mon pb : est-il possible de récupérer le Control suivant (dans l'ordre de tabulation) pour par exemple faire en sorte que si c'est une combobox la dérouler???

merci pour votre aide.

[GuruuMeditation]

Tu pourrais peut-être utiliser l’évènement "onfocus". Comme ça quand le contrôle à le focus tu fais ce que tu as à faire.

[veens777]

Bonjonr GuruuMeditation,

Désolé mais je ne vois pas comment "onfocus" peut résoudre mon pb de reconnaissance du control suivant et d'action en fonction du type du control suivant...

je pense ne pas être loin de la solution mais je bute tj sur un pb :
voici une liste de control composé de combobox et de textbox :

Code :

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

1
2
3
4
5
6
7
8
    Dim col_Ctr As New List(Of Control)
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        col_Ctr.Add(TB1)
        col_Ctr.Add(TB2)
        col_Ctr.Add(CB1)
        col_Ctr.Add(TB3)
        col_Ctr.Add(CB2)
    End Sub

je recherche le code qui lors de l'appui sur enter sur un control, donne le focus au control suivant si c'est un textbox ou déroule si c'est une combobox...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    Private Sub suiv_Enter(ByVal sender As Control, ByVal e As System.Windows.Forms.KeyEventArgs) _
        Handles TB1.KeyDown, TB2.KeyDown, TB3.KeyDown, CB1.KeyDown, CB2.KeyDown
        If e.KeyCode = Keys.Enter Then
            Dim index_Suivant As Integer = col_Ctr.IndexOf(sender) + 1
            If TypeOf col_Ctr(index_Suivant) Is TextBox Then
                col_Ctr(index_Suivant).Focus()
            ElseIf TypeOf col_Ctr(index_Suivant) Is ComboBox Then
                col_Ctr(index_Suivant).DroppedDown() = True
            End If
        End If
    End Sub

"col_Ctr(index_Suivant).DroppedDown() = True" est souligné, il m'indique "DroppedDown n'est pas un membre de system.windows.forms.control"

comment résoudre le pb ???

[veens777]

en fait il fallait passer par une variable intermédiaire (dés fois on cherche compliqué qd on peut faire s...)

avec le code suivant permet donc de passer naviguer d'un Control a un autre à l'aide des touches "enter", "right" et "left" :

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
22
23
24
25
26
27
Private Sub suiv_Enter(ByVal sender As Control, ByVal e As System.Windows.Forms.KeyEventArgs) _
        Handles TB1.KeyDown, TB2.KeyDown, TB3.KeyDown, CB1.KeyDown, CB2.KeyDown
        If e.KeyCode = Keys.Enter Or e.KeyCode = Keys.Right Then 'si l'utilisateur appui sur la touche "enter" ou "rigth"
            If col_Ctr.IndexOf(sender) <> col_Ctr.Count - 1 Then 'si le control actif n'est pas le dernier control
                'donne le focus au control suivant
                Dim index_Suivant As Integer = col_Ctr.IndexOf(sender) + 1
                col_Ctr(index_Suivant).Focus()
 
                If TypeOf col_Ctr(index_Suivant) Is ComboBox Then 'si le control suivant est une CB, la déroule
                    Dim CB As ComboBox
                    CB = col_Ctr(index_Suivant)
                    CB.DroppedDown() = True
                End If
            End If
        ElseIf e.KeyCode = Keys.Left Then 'si l'utilisateur appui sur la touche "left"
            If col_Ctr.IndexOf(sender) <> 0 Then 'si le control actif n'est pas le premier control
                'donne le focus au control précédent
                Dim index_Precedent As Integer = col_Ctr.IndexOf(sender) - 1
                col_Ctr(index_Precedent).Focus()
                If TypeOf col_Ctr(index_Precedent) Is ComboBox Then 'si le control suivant est une CB, la déroule
                    Dim CB As ComboBox
                    CB = col_Ctr(index_Precedent)
                    CB.DroppedDown() = True
                End If
            End If
        End If
    End Sub