Public Class Form1
Dim RadioButtonNo As Integer
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If RadioButton1.Checked = True Then
RadioButtonNo = 1
End If
If RadioButton2.Checked = True Then
RadioButtonNo = 2
End If
If RadioButton3.Checked = True Then
RadioButtonNo = 3
End If
If RadioButton4.Checked = True Then
RadioButtonNo = 4
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
MessageBox.Show("Selected Radio Button is : " + RadioButtonNo.ToString())
End Sub
End Class
上面的代码我正在使用。单选按钮1和单选按钮2我保存在组框1中。单反按钮3和单选按钮4我保存在组框2中。当我运行程序时,默认选择单选按钮3。如果我选择单选按钮1,那么它没有给出正确的输出。我只想选择一个单选按钮。如果我点击按钮1,那么它将存储该单选按钮值。然后,如果我按下按钮2,它将显示选择了哪个按钮。在groupbox中可以吗?请帮帮我。
答案 0 :(得分:1)
正如其他人所说,他们真的应该在同一个组框中......但是如果你真的需要这个工作,你可以使用事件处理程序来取消选中其他的RadioButtons。
类似的东西:
Private Sub uncheck_radios(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged, RadioButton2.CheckedChanged, RadioButton3.CheckedChanged, RadioButton4.CheckedChanged
Dim rad As RadioButton = sender
If rad.Checked Then
Select Case Strings.Right(rad.Name, 1)
Case "1", "2"
RadioButton3.Checked = False
RadioButton4.Checked = False
Case "3", "4"
RadioButton1.Checked = False
RadioButton2.Checked = False
End Select
End If
End Sub
答案 1 :(得分:-2)
请验证单选按钮的GroupName属性。它必须对所有人都一样。 像这样:
GroupName="RadioGroup"