Since there are no more control arrays...

[Radames]

If I have some RadioButtons and want to change all of their text properties using a subroutine, but how do I loop thru all of them?

Thanks.

[Arc]

Good question...

[Sheppe]

Use the tag property of the control. In this case I've set the tag of the group of radiobuttons to "RB1".

Dim CTRL As Control
 
        For Each CTRL In Me.Controls
            If TypeOf (CTRL) Is RadioButton Then
                If CTRL.Tag = "RB1" Then
                    CTRL.Text = "RB1"
                End If
            End If
        Next

[Radames]

Yeah I already hardcoded EACH of the text properties and tags. But each time I click one of the Radios I get a sub with the name of the Radio i.e.

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged

End Sub

So my question now is,
HOW THE HELL DO I WRITE A SUB THAT 'KNOWS' WHICH RADIOBUTTON WAS SELECTED?

Sorry people Im not crabbing at yall but this is frustrating. I just started yesterday with VB.Net

[Shurijo]

You can write one onClick handler for each "group" of radiobuttons that sets a variable to which one is selected.

Private rdbSet As System.Windows.Forms.RadioButton


        Private Sub radiobutton_Click(ByVal sender As Object, ByVal e As EventArgs) Handles rdbBottom.Click, rdbFill.Click, rdbLeft.Click, rdbRight.Click, rdbTop.Click, rdbNone.Click
            rdbSet = CType(sender, RadioButton)
            ApplyChanges()
        End Sub

Private Sub ApplyChanges()

         
            'Apply Docking settings - one only
            If rdbSet Is rdbNone Then
                btnDemo.Dock = System.Windows.Forms.DockStyle.None
            ElseIf rdbSet Is rdbTop Then
                btnDemo.Dock = System.Windows.Forms.DockStyle.Top
            ElseIf rdbSet Is rdbLeft Then
                btnDemo.Dock = System.Windows.Forms.DockStyle.Left
            ElseIf rdbSet Is rdbBottom Then
                btnDemo.Dock = System.Windows.Forms.DockStyle.Bottom
            ElseIf rdbSet Is rdbRight Then
                btnDemo.Dock = System.Windows.Forms.DockStyle.Right
            Else ' The default is: if (rdbSet is rbFill)
                btnDemo.Dock = System.Windows.Forms.DockStyle.Fill
            End If

        End Sub 

[Radames]

Oh man! I got it working. Thanks a lot!

[Radames]

I got it working but I have a few q's

what does ByVal e As EventArgs pass to the function?
what does the CType function return?

[Shurijo]

I'm not a guru, but these are my personal thoughts about it.

>> what does ByVal e As EventArgs pass to the function?

I think this is just the actual event, sorta like having the location where (x,y) the event happened, which mouse button was clicked, etc.

>> what does the CType function return?

RadioButton - The CType function returns type of the second parameter.

Sender is just an object, so in order to get radiobutton properties we need to convert it to a radiobutton. If Sender was a textbox, this line of code would probably error.

[Radames]

Thanks a lot guy!