Help in getting all the controls in a form

You *could* store them in a collection:

Dim theControls as ControlCollection = Me.Controls

but it only stores them in the array. To go through each control, you would need to iterate through each control

ahmedilyas at 2007-8-31 >

but you stated you didnt want to use a for each loop to go through the controls? There is no other way of doing so in this case....apart from using the for each loop

for each currentControl as Control in Me.Controls

if currentControl.GetType Is GetType(SomeControl) then

Dim theControl as SomeControl = CType(currentControl, SomeControl)

'do whatever with the current control

end if

next

replace "SomeControl" with the control you are after, such as TextBox or Button or Label....

ahmedilyas at 2007-8-31 >

thanks guys. here's what i got from your ideas

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

For Each ctl As Control In Me.Controls

MsgBox(ctl.Name, MsgBoxStyle.Information, "Root")

ec(ctl, 1)

Next

End Sub

Private Sub ec(ByVal mctl As Control, ByVal i As Integer)

For Each xctl As Control In mctl.Controls

Select Case TypeName(xctl)

Case "Tabcontrol"

Case "TabPage"

Case "Panel", "TableLayoutPanel", "GroupBox"

Case "Label", "Button", "RadioButton", "CheckBox"

End Select

MsgBox(xctl.Name, MsgBoxStyle.Information, "level " & i)

Next

End Sub

jerjer at 2007-8-31 >