获取一组radiobutton选中项 - VB.NET论坛

第 2 楼

得分:0

用中间量

很冷清，又想到了一个方法，用中间量
用一个中

程序代码：

Public Class frmradiobutton

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Me.Close()
    End Sub

    Private Sub frmradiobutton_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Rad1.Checked = True
        Radxb1.Checked = True
    End Sub

    Private Sub Rad1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rad1.CheckedChanged
        TextBox1.Text = Rad1.Text
    End Sub

    Private Sub Rad2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rad2.CheckedChanged
        TextBox1.Text = Rad2.Text
    End Sub

    Private Sub Rad3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rad3.CheckedChanged
        TextBox1.Text = Rad3.Text
    End Sub

    Private Sub Radxb1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Radxb1.CheckedChanged
        TextBox2.Text = Radxb1.Text
    End Sub

    Private Sub radxb2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radxb2.CheckedChanged
        TextBox2.Text = radxb2.Text
    End Sub
End Class

间量存储每组控件的状态，当CheckedChanged改变该中间量，下面的例子我用的是textbox控件