Iterating through contained controls. (Resolved)

[taxes]

Hi,

When iterating through the controls on a form, it seems that controls contained within another control are ignored. Is that correct?

Also, it seems impossible to iterate through a container control's controls.

Any ideas please?

[pax]

Hi.

You could use a recursive loop.

Public Sub LoopControls(Parent as Control)
    Dim cc As ControlCollection
    Dim c As Control
 
    If Parent is Nothing Then
        cc=Me.Controls
    Else
        cc=Parent.Controls
    End If
 
    For Each c In cc
        'Do whatever it is you wanna do.
 
 
        'Call the sub again, this time using the current control as parent.
        If c.Controls.Count>0 Then LoopControls(c)
    Next
End Sub

Just call it like LoopControls(Nothing) to start at the form itself.

Hope this helps you.

[CyberHawke]

Taxes,

You are correct, controls contained in another control are not listed as part of the parent's controls, however it is possible to iterate through a container controls collection of contained controls.

eg.

Dim ctl1 As Control, ctl2 As Control
For Each ctl1 In Me.Controls
    If ctl1.Name = "Panel1" Then
        For Each ctl2 In ctl1.Controls
            If ctl2.Name = "Button1" Then MessageBox.Show("Found It!")
        Next
    End If
Next

[taxes]

Hi CyberHawke

Many thanks, it works O.K.

Hi Pax,

I'll try your suggestion later, Thanks.

[CyberHawke]

Another option you could use when knowing which container control you are accessing is:

Dim ctl As Control
For Each ctl In Me.Panel1.Controls
    If ctl.Name = "Button1" Then MessageBox.Show("Found It!")
Next

[taxes]

Originally posted by CyberHawke
Another option you could use when knowing which container control you are accessing is:

Dim ctl As Control
For Each ctl In Me.Panel1.Controls
    If ctl.Name = "Button1" Then MessageBox.Show("Found It!")
Next

Even better