Radio Button Grouping in vb/VS 2005

[Thomas Homan]

All,

Is there an easy way to interate through a group of radio buttons (9 of 'em)
contained within a group box in VS2005. I really don't want to have to
evaluate each one...

TIA!

Tom

[Homer J Simpson]

"Thomas Homan" <th****@co.gila.az.us> wrote in message
news:ee**************@TK2MSFTNGP09.phx.gbl...

Is there an easy way to interate through a group of radio buttons (9 of
'em) contained within a group box in VS2005. I really don't want to have
to evaluate each one...

You can write one sub/function to handle them all. Set the .Tag value to the
Button number.

Here is a horrible example:

Private Sub RadioButtons_CheckedChanged(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged, _
RadioButton2.CheckedChanged, RadioButton3.CheckedChanged, _
RadioButton4.CheckedChanged, RadioButton5.CheckedChanged, _
RadioButton6.CheckedChanged, RadioButton7.CheckedChanged, _
RadioButton8.CheckedChanged, RadioButton9.CheckedChanged
Debug.Print(sender.tag)
RadioButton1.BackColor = Drawing.SystemColors.Control
RadioButton2.BackColor = Drawing.SystemColors.Control
RadioButton3.BackColor = Drawing.SystemColors.Control
RadioButton4.BackColor = Drawing.SystemColors.Control
RadioButton5.BackColor = Drawing.SystemColors.Control
RadioButton6.BackColor = Drawing.SystemColors.Control
RadioButton7.BackColor = Drawing.SystemColors.Control
RadioButton8.BackColor = Drawing.SystemColors.Control
RadioButton9.BackColor = Drawing.SystemColors.Control
Select Case sender.tag
Case 1
RadioButton1.BackColor = Color.Red
Case 2
RadioButton2.BackColor = Color.Red
Case 3
RadioButton3.BackColor = Color.Red
Case 4
RadioButton4.BackColor = Color.Red
Case 5
RadioButton5.BackColor = Color.Red
Case 6
RadioButton6.BackColor = Color.Red
Case 7
RadioButton7.BackColor = Color.Red
Case 8
RadioButton8.BackColor = Color.Red
Case 9
RadioButton9.BackColor = Color.Red
End Select
End Sub

[Virgil]

Below are a few functions I put together to identify the selected
radiobutton in a group box. The first function is a button click event
that kicked off the test. The second is the one that lookes for the
radiobutton. I hope this helps.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click

Dim ARadioButton As RadioButton
ARadioButton = GetCheckedRadioButton(Me.GroupBox1)
If ARadioButton Is Nothing Then
MessageBox.Show("Please select an option.")
Else
MessageBox.Show(ARadioButton.Text)
End If

End Sub

Protected Function GetCheckedRadioButton(ByVal Parent As Control)
As RadioButton
Dim AControl As Control
Dim ARadioButton As RadioButton

For Each AControl In Parent.Controls
If AControl.GetType() Is GetType(RadioButton) Then
ARadioButton = DirectCast(AControl, RadioButton)
If ARadioButton.Checked Then Return ARadioButton
End If
Next

Return Nothing
End Function

[Thomas Homan]

That works, thanks!
"Homer J Simpson" <no****@nowhere.com> wrote in message
news:T2NNf.10801$vC4.8888@clgrps12...

"Thomas Homan" <th****@co.gila.az.us> wrote in message
news:ee**************@TK2MSFTNGP09.phx.gbl...

Is there an easy way to interate through a group of radio buttons (9 of
'em) contained within a group box in VS2005. I really don't want to have
to evaluate each one...

You can write one sub/function to handle them all. Set the .Tag value to
the Button number.

Here is a horrible example:

Private Sub RadioButtons_CheckedChanged(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged, _
RadioButton2.CheckedChanged, RadioButton3.CheckedChanged, _
RadioButton4.CheckedChanged, RadioButton5.CheckedChanged, _
RadioButton6.CheckedChanged, RadioButton7.CheckedChanged, _
RadioButton8.CheckedChanged, RadioButton9.CheckedChanged
Debug.Print(sender.tag)
RadioButton1.BackColor = Drawing.SystemColors.Control
RadioButton2.BackColor = Drawing.SystemColors.Control
RadioButton3.BackColor = Drawing.SystemColors.Control
RadioButton4.BackColor = Drawing.SystemColors.Control
RadioButton5.BackColor = Drawing.SystemColors.Control
RadioButton6.BackColor = Drawing.SystemColors.Control
RadioButton7.BackColor = Drawing.SystemColors.Control
RadioButton8.BackColor = Drawing.SystemColors.Control
RadioButton9.BackColor = Drawing.SystemColors.Control
Select Case sender.tag
Case 1
RadioButton1.BackColor = Color.Red
Case 2
RadioButton2.BackColor = Color.Red
Case 3
RadioButton3.BackColor = Color.Red
Case 4
RadioButton4.BackColor = Color.Red
Case 5
RadioButton5.BackColor = Color.Red
Case 6
RadioButton6.BackColor = Color.Red
Case 7
RadioButton7.BackColor = Color.Red
Case 8
RadioButton8.BackColor = Color.Red
Case 9
RadioButton9.BackColor = Color.Red
End Select
End Sub

[Thomas Homan]

Thanks virgil, that fits my needs exactly

Tom
"Virgil" <vs*******@trilliumteam.com> wrote in message
news:11*********************@v46g2000cwv.googlegro ups.com...

Below are a few functions I put together to identify the selected
radiobutton in a group box. The first function is a button click event
that kicked off the test. The second is the one that lookes for the
radiobutton. I hope this helps.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click

Dim ARadioButton As RadioButton
ARadioButton = GetCheckedRadioButton(Me.GroupBox1)
If ARadioButton Is Nothing Then
MessageBox.Show("Please select an option.")
Else
MessageBox.Show(ARadioButton.Text)
End If

End Sub

Protected Function GetCheckedRadioButton(ByVal Parent As Control)
As RadioButton
Dim AControl As Control
Dim ARadioButton As RadioButton

For Each AControl In Parent.Controls
If AControl.GetType() Is GetType(RadioButton) Then
ARadioButton = DirectCast(AControl, RadioButton)
If ARadioButton.Checked Then Return ARadioButton
End If
Next

Return Nothing
End Function