groupbox中的Radiobutton无法正常工作

时间:2015-03-27 06:19:21

标签: vb.net .net-2.0

 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中可以吗?请帮帮我。

2 个答案:

答案 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"