récupérer le Control suivant (ds ordre tabulation)

Version imprimable

07/10/2012, 13h12
veens777

récupérer le Control suivant (ds ordre tabulation)

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.
07/10/2012, 18h42
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.

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:

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:

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 ???

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:

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