Visual Basic 单选框 RadioButton

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

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

单选按钮的 Checked 属性用于设置单选按钮的状态。您可以在单选按钮控件上显示文本和/或图像。还可以使用 “外观” 属性更改单选按钮控件的外观。


RadioButton 控件的属性

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

编号属性 & 描述
1

Appearance

获取或设置一个值,该值确定单选按钮的外观。

2

AutoCheck

获取或设置一个值,该值指示单击控件时控件的选中值和外观是否自动更改。

3

CheckAlign

获取或设置单选按钮复选框部分的位置。

4

Checked

获取或设置一个值,该值指示是否检查控件。

5

Text

获取或设置单选按钮的标题。

6

TabStop

获取或设置一个值,该值指示用户是否可以使用 TAB 键将焦点赋予 RadioButton 控件。


RadioButton 控件的方法

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

编号方法名称 & 描述
1

PerformClick

为控件生成单击事件,模拟用户的单击。


RadioButton 控件的事件

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

编号事件 & 描述
1

AppearanceChanged

当 RadioButton 控件的 Appearance 属性的值更改时发生。

2

CheckedChanged

更改单选按钮控件的 Checked 属性值时发生。

有关单选按钮控件的属性、方法和事件的详细列表,请参考 Microsoft 文档


实例

在下面的实例中,让我们创建两组单选按钮,并使用它们的 CheckedChanged 事件来更改表单的 BackColorForeColor 属性。

让我们双击单选按钮,并在打开的窗口中输入以下代码:

  1. Public Class Form1
  2. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  3. ' Set the caption bar text of the form.
  4. Me.Text = "cankaoshouce.com"
  5. End Sub
  6. Private Sub RadioButton1_CheckedChanged(sender As Object, _
  7. e As EventArgs) Handles RadioButton1.CheckedChanged
  8. Me.BackColor = Color.Red
  9. End Sub
  10. Private Sub RadioButton2_CheckedChanged(sender As Object, _
  11. e As EventArgs) Handles RadioButton2.CheckedChanged
  12. Me.BackColor = Color.Green
  13. End Sub
  14. Private Sub RadioButton3_CheckedChanged(sender As Object, _
  15. e As EventArgs) Handles RadioButton3.CheckedChanged
  16. Me.BackColor = Color.Blue
  17. End Sub
  18. Private Sub RadioButton4_CheckedChanged(sender As Object, _
  19. e As EventArgs) Handles RadioButton4.CheckedChanged
  20. Me.ForeColor = Color.Black
  21. End Sub
  22. Private Sub RadioButton5_CheckedChanged(sender As Object, _
  23. e As EventArgs) Handles RadioButton5.CheckedChanged
  24. Me.ForeColor = Color.White
  25. End Sub
  26. Private Sub RadioButton6_CheckedChanged(sender As Object, _
  27. e As EventArgs) Handles RadioButton6.CheckedChanged
  28. Me.ForeColor = Color.Red
  29. End Sub
  30. End Class

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

分类导航