For Each Child in Controls

Question

To clear all the checkboxes on a form, I can do either this:
        Dim chk As CheckBox
        For Each ctl As Control In Controls
            If TypeOf ctl Is CheckBox Then
                chk = CType(ctl, CheckBox)
                chk.Checked = False
            End If
        Next ctl
Or this:
        For Each chk As CheckBox In Controls.OfType(Of CheckBox)()
            chk.Checked = False
        Next chk
However, this will not clear checkboxes inside a container such as a groupbox.
How can I clear the checkboxes in all the containers at once?
Solitaire

Answer 1

Excess code in examples which use recursive control searches.
Top and bottom examples may be best. 2nd and 3rd examples have code but I don't understand the ienumerable functions used really. They're over my head.
If all controls were added to a List(Of Control) in form load using a recursive search then just the list could be used to set controls of certain types I would guess. Which would keep from requiring a recursive search of controls each time. Unless
controls are dynamically added and removed while the app is running I suppose.
Option Strict On
Public Class Form1
Dim ObjColorDict As New Dictionary(Of String, Color)
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.CenterToScreen()
ObjColorDict.Add("Me", Me.BackColor)
Me.BackColor = Color.White
For Each Item As Control In Me.Controls
If Item.BackColor <> Nothing Then
ObjColorDict.Add(Item.Name, Item.BackColor)
Item.BackColor = Color.White
GetAllChildControls(Item)
End If
Next
For i = 0 To ObjColorDict.Count - 1
RichTextBox1.AppendText(ObjColorDict.Keys(i).ToString & " Color = .. " & ObjColorDict.Values(i).Name.ToString & vbCrLf)
Next
End Sub
Private Sub GetAllChildControls(ByVal ctrlParent As Control)
For Each Item As Control In ctrlParent.Controls
If Item.BackColor <> Nothing Then
ObjColorDict.Add(Item.Name, Item.BackColor)
Item.BackColor = Color.White
End If
' If the control has children,
' recursively call this sub
If Item.HasChildren Then
GetAllChildControls(Item)
End If
Next
End Sub
End Class
Option Strict On
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.CenterToScreen()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
For Each RdoButton As RadioButton In Me.Controls.Cast(Of Control).SelectMany(Function(ctrl) GetAll(ctrl, GetType(RadioButton)).Concat(Me.Controls.Cast(Of Control)).Where(Function(c) c.[GetType]() = GetType(RadioButton)))
RdoButton.Checked = False
Next
End Sub
Public Function GetAll(control As Control, type As Type) As IEnumerable(Of Control)
Dim controls = control.Controls.Cast(Of Control)()
Return controls.SelectMany(Function(ctrl) GetAll(ctrl, type)).Concat(controls).Where(Function(c) c.[GetType]() = type)
End Function
Private Sub UncheckAllRadios(ContainerControl As Control)
For Each C As Control In ContainerControl.Controls
If C.Controls.Count > 0 Then
UncheckAllRadios(C)
End If
If TypeOf C Is RadioButton Then
DirectCast(C, RadioButton).Checked = False
End If
Next
End Sub
Private Sub ClearForm(ByVal ctrlParent As Control)
Dim ctrl As Control
For Each ctrl In ctrlParent.Controls
If TypeOf ctrl Is TextBox Then
ctrl.Text = ""
End If
' If the control has children,
' recursively call this function
If ctrl.HasChildren Then
ClearForm(ctrl)
End If
Next
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
For Each RdoButton As RadioButton In Me.Controls.Cast(Of Control).SelectMany(Function(ctrl) GetAll(ctrl, GetType(RadioButton)).Concat(Me.Controls.Cast(Of Control)).Where(Function(c) c.[GetType]() = GetType(RadioButton)))
RdoButton.Checked = False
Next
End Sub
End Class
Option Strict On
Public Class Form1
Dim TableLayoutPanelList As New List(Of TableLayoutPanel)
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Location = New Point(CInt((Screen.PrimaryScreen.WorkingArea.Width / 2) - (Me.Width / 2)), CInt((Screen.PrimaryScreen.WorkingArea.Height / 2) - (Me.Height / 2)))
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
For Each Item As TableLayoutPanel In Me.Controls.Cast(Of Control).SelectMany(Function(ctrl) GetAll(ctrl, GetType(TableLayoutPanel)).Concat(Me.Controls.Cast(Of Control)).Where(Function(c) c.[GetType]() = GetType(TableLayoutPanel)))
Dim ContainsItem As Boolean = False
If TableLayoutPanelList.Count = 0 Then TableLayoutPanelList.Add(Item) : ContainsItem = True
If TableLayoutPanelList.Count > 0 Then
For i = 0 To TableLayoutPanelList.Count - 1
If TableLayoutPanelList(i) Is Item Then
ContainsItem = True
End If
Next
End If
If ContainsItem = False Then
TableLayoutPanelList.Add(Item)
Else
ContainsItem = False
End If
Next
End Sub
Public Function GetAll(control As Control, type As Type) As IEnumerable(Of Control)
Dim controls = control.Controls.Cast(Of Control)()
Return controls.SelectMany(Function(ctrl) GetAll(ctrl, type)).Concat(controls).Where(Function(c) c.[GetType]() = type)
End Function
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
RichTextBox1.Clear()
If TableLayoutPanelList.Count > 0 Then
For Each Item In TableLayoutPanelList
RichTextBox1.AppendText(Item.Name & vbCrLf & " " & Item.BackColor.Name.ToString & vbCrLf)
Next
End If
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
For Each Item As ColumnStyle In TableLayoutPanel1.ColumnStyles
RichTextBox1.AppendText(Item.SizeType.ToString & vbCrLf & " " & Item.Width.ToString & vbCrLf)
Next
End Sub
End Class
Option Strict On
Public Class Form1
Dim FormControlsList As New List(Of Control)
Dim TblLoutPanel As TableLayoutPanel
Dim TblLoutPanelsAdded As TableLayoutPanel
Dim ColorNames As New List(Of String)
Dim ColorName As System.Type = GetType(System.Drawing.Color)
Dim ColorPropInfo As System.Reflection.PropertyInfo() = ColorName.GetProperties()
Dim Rand As New Random
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Location = New Point(CInt((Screen.PrimaryScreen.WorkingArea.Width / 2) - (Me.Width / 2)), CInt((Screen.PrimaryScreen.WorkingArea.Height / 2) - (Me.Height / 2)))
For Each CPI As System.Reflection.PropertyInfo In ColorPropInfo
If CPI.PropertyType.Name = "Color" And CPI.Name <> "Transparent" Then
ColorNames.Add(CPI.Name)
End If
Next
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Button1.Enabled = False
TblLoutPanel = New TableLayoutPanel
With TblLoutPanel
.Name = "TableLayoutPanel1"
.Size = New Size(400, 400)
.GrowStyle = TableLayoutPanelGrowStyle.FixedSize
.CellBorderStyle = TableLayoutPanelCellBorderStyle.InsetDouble
.Left = 20
.Top = Button1.Bottom + 20
.ColumnCount = 3
.RowCount = 3
.RowStyles.Clear()
.ColumnStyles.Clear()
For i = 0 To .ColumnCount - 1
.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 33.33!))
Next
For i = 0 To .RowCount - 1
.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 33.33!))
Next
.BackColor = Color.FromName(ColorNames(Rand.Next(0, ColorNames.Count)))
End With
Me.Controls.Add(TblLoutPanel)
For i = 2 To 10
TblLoutPanelsAdded = New TableLayoutPanel
TblLoutPanelsAdded.Name = "TableLayoutPanel" & i.ToString
With TblLoutPanelsAdded
.Size = New Size(100, 100)
.GrowStyle = TableLayoutPanelGrowStyle.FixedSize
.CellBorderStyle = TableLayoutPanelCellBorderStyle.OutsetDouble
.Anchor = AnchorStyles.None
.ColumnCount = 2
.RowCount = 2
.RowStyles.Clear()
.ColumnStyles.Clear()
For j = 0 To .ColumnCount - 1
.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 33.33!))
Next
For j = 0 To .RowCount - 1
.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 33.33!))
Next
.BackColor = Color.FromName(ColorNames(Rand.Next(0, ColorNames.Count)))
End With
For Each ctl As Control In Me.Controls.OfType(Of TableLayoutPanel)()
If ctl.Name = "TableLayoutPanel1" Then
ctl.Controls.Add(TblLoutPanelsAdded)
End If
Next
Next
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
FormControlsList.AddRange(RecursiveControlSearch(Me).ToArray)
End Sub
Private Function RecursiveControlSearch(ByRef Ctl As Control) As List(Of Control)
Dim Temp As New List(Of Control)
For Each Item As Control In Ctl.Controls
Temp.Add(Item)
GetAllChildControls(Item)
Next
Return Temp
End Function
Private Sub GetAllChildControls(ByVal ctrlParent As Control)
For Each Item As Control In ctrlParent.Controls
FormControlsList.Add(Item)
If Item.HasChildren Then
GetAllChildControls(Item)
End If
Next
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
RichTextBox1.Clear()
For Each Item In FormControlsList
RichTextBox1.AppendText(Item.Name & vbCrLf)
Next
End Sub
End Class
La vida loca