组框中的单选按钮无法正常工作

Question

 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 是 selected。如果我 select 单选按钮 1 那么它没有给出正确的输出。我只希望 select 编辑一个单选按钮。如果我单击按钮 1，它将存储该单选按钮值。然后，如果我按下按钮 2，它将显示哪个按钮被 selected。在groupbox中有可能吗？请帮助我。

Answer 1

请验证单选按钮的组名属性。它必须对所有人都一样。像这样：

GroupName="RadioGroup"

Answer 2

正如其他人所说，它们确实应该在同一个组框中...但是如果您真的需要它来工作，您可以使用事件处理程序来取消选中其他 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

组框中的单选按钮无法正常工作

Radiobutton in groupbox is not working properly

vb.net

.net-2.0