VB.Net单选按钮(RadioButton)

单选按钮(RadioButton)控件用于提供一组互斥选项。 用户可以选择一个组中的一个单选按钮。如果需要将多个单选按钮放在同一个表单中,则应将其放在不同的容器控件(如GroupBox控件)中。

下面创建三个单选按钮,从工具箱中拖动RadioButton控件并放在窗体上。

单选按钮的选中属性用于设置单选按钮的状态。 您可以在单选按钮控件上显示文字,图片或两者。 您还可以使用“外观”属性更改单选按钮控件的外观。

RadioButton控件的属性

以下是控件(RadioButton)控件的一些常用属性:

编号 属性 描述
1 Appearance 获取或设置一个确定单选按钮外观的值。
2 AutoCheck 获取或设置一个值,该值指示单击控件时,选中的值和控件的外观是否自动更改。
3 CheckAlign 获取或设置单选按钮的复选框部分的位置。
4 Checked 获取或设置一个值,该值指示是否检查控件。
5 Text 获取或设置单选按钮的标题。
6 TabStop 获取或设置一个值,该值指示用户是否可以使用TAB 键将焦点赋予RadioButton 控件。

RadioButton控件的方法

以下是RadioButton控件的一些常用方法:

编号 方法 描述
1 PerformClick 生成控件的Click事件,模拟用户的点击。

有关RadioButton控件的属性,方法和事件的详细列表,请参阅Microsoft文档。

RadioButton控件的事件

以下是RadioButton控件的一些常用事件:

编号 事件 描述
1 AppearanceChanged 在更改RadioButton控件的Appearance属性的值时发生。
2 CheckedChanged 在更改RadioButton控件的Checked属性的值时发生。

示例

在以下示例中,创建两组单选按钮并使用它们的CheckedChanged 事件来更改窗体的BackColorForeColor属性。

双击单选按钮,并将下面的代码放在打开的窗口中。参考代码 -

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' Set the caption bar text of the form.  '
        Me.Text = "RadioButton Demo - xuhuhu.com"
    End Sub

    Private Sub RadioButton1_CheckedChanged(sender As Object,
        e As EventArgs) Handles rbtnRed.CheckedChanged
        Me.BackColor = Color.Red
    End Sub
    Private Sub RadioButton2_CheckedChanged(sender As Object,
       e As EventArgs) Handles rbtnGreen.CheckedChanged
        Me.BackColor = Color.Green
    End Sub
    Private Sub RadioButton3_CheckedChanged(sender As Object,
       e As EventArgs) Handles rbtnBlue.CheckedChanged
        Me.BackColor = Color.Blue
    End Sub

    Private Sub RadioButton4_CheckedChanged(sender As Object,
       e As EventArgs) Handles rbtnBack.CheckedChanged
        Me.ForeColor = Color.Black
    End Sub
    Private Sub RadioButton5_CheckedChanged(sender As Object,
        e As EventArgs) Handles rbtnWhite.CheckedChanged
        Me.ForeColor = Color.White
    End Sub
    Private Sub RadioButton6_CheckedChanged(sender As Object,
       e As EventArgs) Handles rbtnYellow.CheckedChanged
        Me.ForeColor = Color.Yellow
    End Sub
End Class

当上面的代码执行并使用Microsoft Visual Studio工具栏上的“开始”按钮运行时,它将显示以下窗口:


上一篇: VB.Net基本控件 下一篇: VB.Net对话框