VB.Net - CheckBox 复选框控件

CheckBox 控件允许用户设置 true/false 或 yes/no 类型选项。用户可以选择或取消选择它。当选中某个复选框时，其值为 True；当清除该复选框时，其值为 False。

让我们通过将 CheckBox 控件从工具箱中拖放到窗体上来创建两个复选框。

CheckBox 控件具有三种状态， checked, unchecked 和 indeterminate.在不确定状态下，该复选框呈灰色。要启用不确定状态，请将复选框的 ThreeState 属性设置为 True。

复选框控件的属性

以下是CheckBox控件的一些常用属性 −

序号	属性 &描述
1	Appearance 获取或设置一个确定复选框外观的值。
2	AutoCheck 获取或设置一个值，该值指示选中复选框时 Checked 或 CheckedState 值以及控件的外观是否自动更改。
3	CheckAlign 获取或设置复选框上复选标记的水平和垂直对齐方式。
4	Checked 获取或设置一个值，该值指示是否选中该复选框。
5	CheckState 获取或设置复选框的状态。
6	Text 获取或设置复选框的标题。
7	ThreeState 获取或设置一个值，该值指示复选框是否应允许三种检查状态而不是两种。

复选框控件的方法

以下是CheckBox控件的一些常用方法 −

序号	方法名称 & 描述
1	OnCheckedChanged 引发 CheckedChanged 事件。
2	OnCheckStateChanged 引发 CheckStateChanged 事件。
3	OnClick 引发 OnClick 事件。

序号

方法名称 & 描述

OnCheckedChanged

引发 CheckedChanged 事件。

OnCheckStateChanged

引发 CheckStateChanged 事件。

OnClick

引发 OnClick 事件。

复选框控件的事件

以下是CheckBox控件的一些常用事件 −

序号	事件 & 描述
1	AppearanceChanged 当复选框的 Appearance 属性值更改时发生。
2	CheckedChanged 当 CheckBox 控件的 Checked 属性值更改时发生。
3	CheckStateChanged 当 CheckBox 控件的 CheckState 属性的值更改时发生。

序号

事件 & 描述

AppearanceChanged

当复选框的 Appearance 属性值更改时发生。

CheckedChanged

当 CheckBox 控件的 Checked 属性值更改时发生。

CheckStateChanged

当 CheckBox 控件的 CheckState 属性的值更改时发生。

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

示例

在此示例中，我们在一个组框中添加四个复选框。这些复选框将允许用户选择他们了解该组织的来源。如果用户选择带有文本"其他"的复选框，则系统会要求用户指定，并提供一个文本框来提供输入。当用户单击"提交"按钮时，他会收到一条相应的消息。

设计视图中的表单 −

让我们将以下代码放入代码编辑器窗口中 −

Public Class Form1
   Private Sub Form1_Load(sender As Object, e As EventArgs) _
      Handles MyBase.Load
      ' 设置表单的标题栏文本。
      Me.Text = "tutorialspoint.com"
      Label1.Visible = False
      TextBox1.Visible = False
      TextBox1.Multiline = True
   End Sub
   
   Private Sub Button1_Click(sender As Object, e As EventArgs) _
      Handles Button1.Click
      Dim str As String
      str = " "
      
      If CheckBox1.Checked = True Then
         str &= CheckBox1.Text
         str &= " "
      End If
      
      If CheckBox2.Checked = True Then
         str &= CheckBox2.Text
         str &= " "
      End If
      
      If CheckBox3.Checked = True Then
         str &= CheckBox3.Text
         str &= " "
      End If
      
      If CheckBox4.Checked = True Then
         str &= TextBox1.Text
         str &= " "
      End If
      If str <> Nothing Then
         MsgBox(str + vbLf + "Thank you")
      End If
   End Sub
   
   Private Sub CheckBox4_CheckedChanged(sender As Object, _
      e As EventArgs) Handles CheckBox4.CheckedChanged
      Label1.Visible = True
      TextBox1.Visible = True
   End Sub
End Class

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