RadioButton 控件

2025年3月17日 | 阅读 3 分钟

RadioButton 用于从多个选项中选择一个选项。如果我们想从 Windows 窗体中的一组相关或相关的项目列表中仅选择一个项目，我们可以使用单选按钮。 RadioButton 是互斥的，这意味着只有一个项目是激活的，而表单中的其余项目未被选中。

让我们按照以下步骤在 VB.NET Windows 中创建一个 RadioButton 控件。

步骤 1： 从工具箱中拖动 RadioButton 控件，然后将其拖放到 Windows 窗体中，如下所示。

步骤 2： 将 RadioButton 添加到窗体后，我们可以通过单击 Radio 控件来设置 RadioButton 的各种属性。

RadioButton 属性

以下是 VB.NET RadioButton 控件的属性。

属性	描述
AllowDrop	它用于设置或获取一个值，该值表示 RadioButton 是否允许用户在窗体上拖动。
外观	它用于获取或设置一个值，该值表示 RadioButton 的外观。
AutoScrollOffset	它用于在 ScrollControlIntoView(Control) 中获取或设置单选控件。
AutoCheck	当用户单击 RadioButton 控件时，AutoCheck 属性用于检查控件的已选中值或外观是否可以自动更改。
AutoSize	AutoSize 属性用于检查是否可以通过在 RadioButton 控件中设置一个值来自动调整单选控件的大小。
CanSelect	CanSelect 属性用于验证是否可以通过在 RadioButton 控件中设置一个值来选择单选控件。
CheckAlign	它用于获取或设置一个值，该值指示 radioButton 控件中选中部分的位置。
文本	Text 属性用于设置 RadioButton 控件的名称。

RadioButton 方法

方法名称	描述
Contains(Control)	Contains() 方法用于检查定义的控件是否在 RadioButton 控件中可用。
DefWndProc(Message)	它用于将指定的消息发送到 Window 过程。
DestroHandle()	它用于销毁与 RadioButton 控件关联的句柄。
Focus()	Focus() 方法用于将输入焦点设置到窗口窗体的 RadioButton 控件。
GetAutoSizeMode()	它用于返回一个值，该值表示当在 Windows 窗体的 RadioButton 控件中启用 AutoSize 属性时控件将如何运行。
ResetText()	顾名思义，ResetText() 方法用于将文本属性重置为其默认值或为空。
Update()	它用于重定向无效的字段，这会导致客户端区域中的控件。

我们还可以参考 Microsoft 文档以获取 VB .NET 中 RadioButton 控件属性和方法的完整列表。

让我们创建一个程序来了解 VB.NET 窗体中单选按钮控件的用途。

RadioBtn.vb

Public Class RadioBtn
    Private Sub RadioBtn_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Text = "javaTpoint.com" ' Set the title of the form
        Label1.Text = "Select the Gender"
        RadioButton1.Text = "Male"  ' Set the radiobutton1 and radiobutton2
        RadioButton2.Text = "Female"
        RadioButton3.Text = "Transgender"
        Button1.Text = "Submit"   ' Set the button name
        Button2.Text = "Exit"
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim gen As String
        If RadioButton1.Checked = True Then
            gen = "Male"
            MsgBox(" Your gender is : " & gen)

        ElseIf RadioButton2.Checked = True Then
            gen = "Female"
            MsgBox(" Your gender is : " & gen)
        Else
            gen = "Transgender"
            MsgBox(" You have Selected the gender : " & gen)
        End If

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        End 'Terminate the program
    End Sub
End Class

输出