Radio buttons

I'd add a CheckedChanged event handler for the first RadioButton and then wire up the CheckedChanged event of the all the other RadioButtons to the same handler by selecting it from the drop down in the Properties Box for those buttons.

I'd then add this code to display which RadioButton is currently checked. There is also some code to prevent the MessageBox from popping up when the application first starts as the CheckedChanged handler will then be called automatically when the first RadioButton's checked status changes from false to true by default:

Private startUp As Boolean = True

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged, RadioButton2.CheckedChanged, RadioButton3.CheckedChanged 'etc if more than three

If startUp Then

startUp = False

Return

End If

Dim r As RadioButton = CType(sender, RadioButton)

If r.Checked Then

MessageBox.Show(r.Text & " is checked")

End If

End Sub

1 Reply

Know the answer? Post it — somebody with the same question will find it here.

Vulpes14y ago
I'd add a CheckedChanged event handler for the first RadioButton and then wire up the CheckedChanged event of the all the other RadioButtons to the same handler by selecting it from the drop down in the Properties Box for those buttons.

I'd then add this code to display which RadioButton is currently checked. There is also some code to prevent the MessageBox from popping up when the application first starts as the CheckedChanged handler will then be called automatically when the first RadioButton's checked status changes from false to true by default:

Private startUp As Boolean = True

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged, RadioButton2.CheckedChanged, RadioButton3.CheckedChanged 'etc if more than three

If startUp Then
startUp = False
Return
End If

Dim r As RadioButton = CType(sender, RadioButton)

If r.Checked Then
MessageBox.Show(r.Text & " is checked")
End If

End Sub