VB.NET Itérer dans les conteneurs de contrôle

Question

Comment faire pour parcourir tous les contrôles d'un conteneur et tous les contrôles dans le conteneur d'un contrôle conteneur, et ainsi de suite.

Form 
-Panel 
--Control 
--Tab 
----Control 
----Control 
--Tab 
----Control 

Ce qui suit ne récupère que -Panel et aucun des autres contrôles

For Each cntrl As Control In Me.Controls 

Next 

Comment puis-je les récupérer tous dans une boucle For Each sans If/Then pour tous les niveaux de la pile?

EDIT:

Dim ctl As Control = Me 
Do 
    ctl = Me.GetNextControl(ctl, True) 
    'Do whatever you have to ctl 
Loop Until ctl Is Nothing 

Il en est ainsi loin la meilleure méthode que je trouve de le faire.

Answer 1

Vous devez définir une méthode permettant de traverser les conteneurs à l'intérieur du conteneur en recursively. Quelque chose comme ceci:

Dim _list As New List(Of Control) 
Public Sub GetChilds(container As Control) 
     For Each child As Control In container.Controls 
      _list.Add(child) 
      If (child.HasChildren) Then 
       GetChilds(child) 
      End If 
     Next 
End Sub 

Pour appeler cette méthode:

list=new List(Of Control) 
    GetChilds(Me) 
    For Each cntrl As Control In _list 
    .... 
    Next