Discussion :

[olsimare]

Bonjour.

Est-il possible d'accéder directement à tous les controls d'un form par code ?

Si on met un TabControl avec des Tabpages dans une form, il faut apparemment descendre dans le TabControl puis dans les TabPage pour avoir accés par code aux controls de ce TabPage !!!

Exemple :
Dans ma Form "Tutu" j'ai un TabControl "Toto" avec une TabPage "Tata" qui contient un textbox "textboxTiti".

Le TextBox "textboxTiti" n'est pas un item des controls de ma Form "Tutu".
Si je fais For each ctl in Form("Tutu") je n'accède qu'au TabControl "Toto".

Evidemment, ça se contourne facilement à grand coup de récursivité mais c'est un peu lourd d'autant plus que dans le code on peut directement faire me.textboxTiti !!!

La question est donc : existe-il un moyen d'accéder à tous les controls d'une form même ceux contenu dans un container de cette form ?

[Bob Langlade]

Code :

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

1
2
3
4
5
6
7
8
9
10
    Public Function FindControl(ByVal ControlDépart As Control, ByVal Nom As String) As Control
        Dim Ctrl As Control = Me.GetNextControl(ControlDépart, True)
        While Ctrl IsNot Nothing
            If Ctrl.Name = Nom Then
                Return Ctrl
            End If
            Ctrl = Me.GetNextControl(Ctrl, True)
        End While
        Return Nothing
    End Function

Pour l'utiliser :

Code :

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

            Dim item As Control = FindControl(Me, "TextBox1")

[olsimare]

Bonjour.

Ca roule.

Merci beaucoup Bob.
Cdt.

[ChPortos]

Je viens d'essayer ce bout de code, mais VS 2005 ne trouve pas la fonction GetNextControl ?
S'agirait-il d'une fonction disponible dans une librairie que je n'ai pas importée ou d'une fonction à développer.

Pour info, je suis en CompactFramework 2.0 (je bosse sur PocketPC)

Merci d'avance,
Ch'Portos.

[Bob Langlade]

Il semblerait que la fonction GetNextControl ne soit pas implémentée pour cette version du FrameWork.

Il vous faut donc réaliser vous même une fonction récursive. Je n'ai aucune expérience en Pocket PC .

[olsimare]

Bonjour.

Pour la méthode sauvage sans le getnextcontrols j'utilise :

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
 
    Private Sub loadContainerFields(ByRef IContainer As Control)
 
        Dim cControl As System.Windows.Forms.Control
 
        For Each cControl In IContainer.controls
 
            InitializeField(cControl)
 
            If cControl.HasChildren Then
                'appel réentrant car le Control contient des controls
                loadContainerFields(cControl)
            End If
        Next
 
    End Sub
 
    Private Sub InitializeField(ByVal IControl As Object)
 
    '.... code qui initialise le control ...
 
    End Sub

En premier appel je lui passe ma form (puisque form hérite de control).
A noter que le "As Object" dans InitializeField est volontaire car je joue dans mon code sur des propriétés spécifiques à certain types de controls (pas très propre tout ça je vous l'accorde ! ;-))

cdt.