Restting all Checked "type" controls in containers.

[kayleigh]

I know how to do it individually but not sure if it's possible to merge into one.

I have 6 containers that contain either Checkbox or RadioButtons.

Struggling sending the type of control and also wondered do i really need to call clear 6 times? Can't VB search each container for a control that can be checked?

#Region "Form Events"
    Private Sub ClearPizzaCreation(Of t As Control)(ByVal root As Control)
        For Each ctrl As Control In root.Controls
            If TypeOf ctrl Is CheckBox OrElse TypeOf ctrl Is RadioButton Then
                DirectCast(ctrl, t).Checked = False
            End If
        Next ctrl
    End Sub
#End Region
 
    Private Sub btnStartAgain_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _
                                                                                                btnStartAgain.Click
        ClearPizzaCreation(Of CheckBox)(flpnlToppings)
        ClearPizzaCreation(flpnlSize)
        ClearPizzaCreation(flpnlBase)
        ClearPizzaCreation(flpnlDrink)
    End Sub

[.paul.]

are the container controls all panels?

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    For Each p As Panel In Me.Controls.OfType(Of Panel)()
        For Each cb As CheckBox In p.Controls.OfType(Of CheckBox)()
            cb.Checked = False
        Next
        For Each rb As RadioButton In p.Controls.OfType(Of RadioButton)()
            rb.Checked = False
        Next
    Next
End Sub

[kayleigh]

Hi paul they are all flow panels if that helps. Instea dof looping twice inside the loop can it not be sent. The control type i mean?

[.paul.]

this should work:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    For Each flp As FlowLayoutPanel In Me.Controls.OfType(Of FlowLayoutPanel)()
        For Each cb As CheckBox In flp.Controls.OfType(Of CheckBox)()
            cb.Checked = False
        Next
        For Each rb As RadioButton In flp.Controls.OfType(Of RadioButton)()
            rb.Checked = False
        Next
    Next
End Sub

[Shaggy Hiker]

You will have to loop somewhere.

There is a theoretical alternative where you use reflection to figure out whether or not there is a .Checked property of the given object, but there is no sound reason to do this. Even without testing, I feel pretty certain that such a loop would perform much worse than the code .Paul. posted.

[kayleigh]

Works a charm.

SH i understand completly what you are saying. But i was more getting at i know which flow panel contrains either a check or a radio control. So when i am calling the sub i can send for example

CallMySub(FlowPanelName, Checkbox)

or

CallMySub(FlowPanelName, Radiobutton)

[Shaggy Hiker]

Depending on what you are doing, it may not matter whether you pass in a checkbox or a radiobutton. Those two controls are so similar that for most situations, passing in a Control would work as long as it was one of those two types. That may not make anything easier, since it would just be a matter of an OR that wouldn't be so good, but there are cases where it would be useful.