Visual Basic 复选框 CheckBox

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

让我们通过从工具箱中拖动复选框控件并将其拖放到表单上来创建两个复选框。

CheckBox 复选框控件有三种状态：checked(选中)、unchecked(未选中)和 indeterminate(不确定)。在 indeterminate 状态下，复选框将变灰。要启用这个状态，复选框的 ThreeState 属性设置为 True。

CheckBox 控件的属性

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

CheckBox 控件的方法

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

CheckBox 控件的事件

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

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

实例

在本例中，让我们在组框中添加 4 个复选框。复选框将允许用户选择他们了解组织的来源。如果用户选择文本为 "others" 的复选框，则要求用户指定，并提供一个文本框以提供输入。当用户单击提交按钮时，会收到一条对应的消息。

窗体的设计视图如下:

让我们在代码编辑器窗口中放置以下代码:

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 = "cankaoshouce.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 工具栏上的 开始 按钮执行并运行上述代码时，它将显示以下窗口:

勾选所有的复选框:

单击提交按钮: