VB.Net - 单选按钮控件

• 

  简述

  RadioButton 控件用于提供一组互斥选项。用户可以选择一组中的一个单选按钮。如果需要在同一个窗体中放置一组以上的单选按钮，则应将它们放置在不同的容器控件中，例如 GroupBox 控件。

  让我们通过将 RadioButton 控件从工具箱中拖放到窗体上来创建三个单选按钮。

  

  单选按钮的Checked属性用于设置单选按钮的状态。您可以在单选按钮控件上显示文本、图像或两者。您还可以使用Appearance属性更改单选按钮控件的外观。
• 

  单选按钮控件的属性

  以下是 RadioButton 控件的一些常用属性 -

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

• 

  RadioButton 控件的方法

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

  序号	方法名称和描述
  1	PerformClick 为控件生成 Click 事件，模拟用户的单击。

• 

  RadioButton 控件的事件

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

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

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

  例子

  在下面的示例中，让我们创建两组单选按钮并使用它们的 CheckedChanged 事件来更改表单的 BackColor 和 ForeColor 属性。

  

  让我们双击单选按钮并将以下代码放入打开的窗口中。

  
  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 = "tutorialspont.com"
     End Sub
     Private Sub RadioButton1_CheckedChanged(sender As Object, _
        e As EventArgs) Handles RadioButton1.CheckedChanged
        Me.BackColor = Color.Red
     End Sub
     
     Private Sub RadioButton2_CheckedChanged(sender As Object, _
        e As EventArgs) Handles RadioButton2.CheckedChanged
        Me.BackColor = Color.Green
     End Sub
     
     Private Sub RadioButton3_CheckedChanged(sender As Object, _ 
        e As EventArgs) Handles RadioButton3.CheckedChanged
        Me.BackColor = Color.Blue
     End Sub
    
     Private Sub RadioButton4_CheckedChanged(sender As Object, _
        e As EventArgs) Handles RadioButton4.CheckedChanged
        Me.ForeColor = Color.Black
     End Sub
     
     Private Sub RadioButton5_CheckedChanged(sender As Object, _
         e As EventArgs) Handles RadioButton5.CheckedChanged
        Me.ForeColor = Color.White
     End Sub
     
     Private Sub RadioButton6_CheckedChanged(sender As Object, _
        e As EventArgs) Handles RadioButton6.CheckedChanged
        Me.ForeColor = Color.Red
     End Sub
  End Class
  

  复制

  当使用 Microsoft Visual Studio 工具栏上提供的开始按钮执行并运行上述代码时，它将显示以下窗口 -