How to access controls of Multilayer Panels in vb.net

Question

I want to access all of the controls in my form with this code:

For each pc in Myform.control

do somthing

My Problem is that I have multilayer panels in myform.For example "Myform" contains (textbox1,textbox 2,combobox1,panle1,panel2).

Panel1 contains (panel11 and textbox 3)

panel 2 contains (panel22 and textbox4 and combobox2)

In addition panel22 contains (textbox5 and panle222)

How can I access "All" of the controls(textbox and combobox) in "Myform" without considering whether they are in a panel or not.

Any help is greatly appreciated.

I want to insert values into textboxes and comboboxes dynamically. — S MK, Jun 12 '13 at 10:35

Matt Wilko · Accepted Answer · 2013-06-13T15:17:22.813

0

Something like this should do it:

Private Sub EnumerateControl(parentControl As Control)
    For Each child As Control In parentControl.Controls
        Debug.WriteLine(child.Name)
        If child.HasChildren Then EnumerateControl(child)
    Next
End Sub

Then call this to use it:

EnumerateControl(Me) 'Pass the form control to start the enumeration

The key here is to test if the control in question has children and if so enumerate all controls in that control by calling EnumerateControl recursively

edited Jun 13 '13 at 15:17

answered Jun 12 '13 at 10:39

Matt Wilko

26,994
10
93
143

Why pass ByRef? That shouldn't make any difference in this method. – Chris Dunaway Jun 13 '13 at 14:38

score 0 · Answer 2 · answered Jun 12 '13 at 10:39

You can access them in a recursive way such as:

Public Sub ProcessControls(ByRef Controls As ControlCollection)
    For Each pc As Control In Controls
        'Do whathever you want

        If pc.Controls.Count Then 'If that control has child, process them
            ProcessControls(pc.Controls)
        End If
    Next
End Sub

How to access controls of Multilayer Panels in vb.net

2 Answers2