[RESOLVED] [2005] Assigning values to RadioButtons

[drpcken]

First off I've never used radiobuttons with winforms, only asp.net and webforms.

I have a groupbox filled with radiobuttons. But I can't seem to find where to assign their individually checked value at in their properties.

Am I missing something?

[gigemboy]

well are you wanting more than one radio button to be able to be checked on that form? As long as you just have one radiobutton checked, then its just a matter of looping the controls in the container (the tabpage, I would image), until you find the one checkbox whose state is checked...

'loops for all controls in the tabpage
        For Each Ctrl As Control In Me.TabPage1.Controls
            'checks to see if current control in loop is a radiobutton
            If TypeOf Ctrl Is RadioButton Then
                'casts control into a radiobutton to check the "checked" property
                If DirectCast(Ctrl, RadioButton).Checked = True Then
                     MessageBox.Show("here is the checked one! Name:" & Ctrl.Name)
                     'code to access whatever property you have that contains the value would go here
                     Exit For  'exits loop since we dont have to loop any more
                End If
            End If
        Next

[drpcken]

Just 1 checkbox will be checked. Each one has its own unique value that will be passed into a function depending on which one is checked.

[gigemboy]

Then the above should work...

[drpcken]

Thanks again! I'll give it a go!

[gigemboy]

Whoops... did I miss something or do I now read "assign" the properties?? If you want to assign the value, you can use the .Tag property, and put the value in there for each of the radiobuttons... then access that property when you want to retrieve the values...

[drpcken]

THATS what I was lookin for

Rockin! Thanks!!!!

[drpcken]

Hmmm.
I'm not sure which handler to use to check and see which RadioButton is checked.

I'm assuming I don't have to add a click handler to each radiobutton do I?

[gigemboy]

Well you can do it one of two ways...

If you want to assign some variable the value of the checked radiobutton at the time that it was checked, then you have to have a sub that can handle the click events of all of the radiobuttons (by adding each radiobutton.click onto the handles clause of a normal radiobutton click event).

The other way would be to just retrieve the value at whatever time you need it, by looping the controls and getting the value of the checked one, like the code already posted does...

[drpcken]

So I can create one sub that handles ALL click events for all the radiobuttons? If so how is that accomplished?

Or do I have to have one sub for each RadioButton?

[drpcken]

Ahh I figured it out:

Private Sub RadioStation(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles F8330.CheckedChanged, F1530.CheckedChanged, F2330.CheckedChanged
        'Code
    End Sub

Thanks!!!!

[drpcken]

Ok this is working great except for not all my controls in here are RadioButtons, I have some labels I'm using, and its trying to check the .Checked property of the labels, which of course it can't do and throws an error. How can I tell it NOT to include anything that isn't a RadioButton? Here's my code:

Private Sub RadioStation(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles F8330.CheckedChanged, F8340.CheckedChanged, F8350.CheckedChanged, _
                             F8365.CheckedChanged, F8380.CheckedChanged, F83100.CheckedChanged, F83125.CheckedChanged, F83150.CheckedChanged, F83165.CheckedChanged, _
                             F83250.CheckedChanged, F83300.CheckedChanged, F83330.CheckedChanged, F1530.CheckedChanged, F1540.CheckedChanged, F1550.CheckedChanged, _
                             F1565.CheckedChanged, F1580.CheckedChanged, F15100.CheckedChanged, F15125.CheckedChanged, F15150.CheckedChanged, F15250.CheckedChanged, _
                             F15300.CheckedChanged, F2330.CheckedChanged, F2350.CheckedChanged, F2365.CheckedChanged, F2380.CheckedChanged, F23100.CheckedChanged, _
                             F23125.CheckedChanged, F23150.CheckedChanged, F23165.CheckedChanged, F23250.CheckedChanged, F23300.CheckedChanged, F23330.CheckedChanged
 
        For Each Ctrl As RadioButton In TableLayoutPanel1.Controls
 
            If Ctrl.Checked Then
                MsgBox("Checked!", MsgBoxStyle.OkCancel)
            End If
 
        Next
 
 
    End Sub

[gigemboy]

Look again at the code I posted above... you have to see if the ctrl is a radiobutton first, which is addressed by "If TypeOf Ctrl is RadioButton then".. you would also need to cast the ctrl into a radiobutton in order to access the "checked" property (once again in the code I posted)...

[drpcken]

oops sorry I jumped ahead of myself I was testing all my radios to make sure they were being handled.

[drpcken]

Hmm, for the first checkbox it works great, but when I click another one it throws the error again.

For Each Ctrl As RadioButton In TableLayoutPanel1.Controls
            If TypeOf Ctrl Is RadioButton Then
                If DirectCast(Ctrl, RadioButton).Checked Then
                    MsgBox("Checked!", MsgBoxStyle.OkCancel)
                    Exit For
                End If
            End If
        Next

Also, exactly what does DirectCast() do?

[gigemboy]

DirectCast is needed because the controls in the collection are of a generic control type, so you have to cast the control into the specific type that it is so you can access the specific properties that it has... you can use CType as well, but DirectCast has better performance, but can only be used when you know the object is the type you are casting to.

In regards to your error.. what error are you referring to? I tested the code and it worked fine. I do see that the checkchanged event is going to be fired twice after the first click since it fires once for the checkbox that was previously checked, and then again for the checkbox that is checked, since both states changed with the click. So are you doing something else in the code that you arent showing?

[drpcken]

Here's the exact code for the sub

Private Sub RadioStation(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles F8330.CheckedChanged, F8340.CheckedChanged, F8350.CheckedChanged, _
                             F8365.CheckedChanged, F8380.CheckedChanged, F83100.CheckedChanged, F83125.CheckedChanged, F83150.CheckedChanged, F83165.CheckedChanged, _
                             F83250.CheckedChanged, F83300.CheckedChanged, F83330.CheckedChanged, F1530.CheckedChanged, F1540.CheckedChanged, F1550.CheckedChanged, _
                             F1565.CheckedChanged, F1580.CheckedChanged, F15100.CheckedChanged, F15125.CheckedChanged, F15150.CheckedChanged, F15250.CheckedChanged, _
                             F15300.CheckedChanged, F2330.CheckedChanged, F2350.CheckedChanged, F2365.CheckedChanged, F2380.CheckedChanged, F23100.CheckedChanged, _
                             F23125.CheckedChanged, F23150.CheckedChanged, F23165.CheckedChanged, F23250.CheckedChanged, F23300.CheckedChanged, F23330.CheckedChanged
 
        For Each Ctrl As RadioButton In TableLayoutPanel1.Controls
            If TypeOf Ctrl Is RadioButton Then
                If DirectCast(Ctrl, RadioButton).Checked Then
                    MessageBox.Show("Checked!")
                    Exit For
                End If
            End If
        Next
 
 
    End Sub

It throws this error
Unable to cast object of type 'System.Windows.Forms.Label' to type 'System.Windows.Forms.RadioButton'.

and highlights this line of code"

For Each Ctrl As RadioButton In TableLayoutPanel1.Controls

[drpcken]

Here's something interesting, It doesn't throw the error until the second Radio click. After the first one, the msgbox works great, then on the second one it throws the error

[gigemboy]

Its because you specified "radiobutton" instead of "control" in the for each loop...

For Each Ctrl As [B]Control[/B] In TableLayoutPanel1.Controls

[drpcken]

That did it! Thanks for your help and patience!!!