Accés direct à TOUS les controls d'une form

Version imprimable

03/02/2007, 16h02
olsimare

Accés direct à TOUS les controls d'une form

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 ?

Code:

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:

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

04/02/2007, 11h45
olsimare

Bonjour.

Ca roule.

Merci beaucoup Bob.
Cdt.
06/02/2007, 10h11
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.
06/02/2007, 18h00
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 :( .

Bonjour.

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

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.