VB.Net - 复选框控件

• 

  简述

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

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

  

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

  CheckBox 控件的属性

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

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

• 

  CheckBox 控件的方法

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

  序号	Method Name & Description
  1	OnCheckedChanged 引发 CheckedChanged 事件。
  2	OnCheckStateChanged 引发 CheckStateChanged 事件。
  3	OnClick 引发 OnClick 事件。

• 

  CheckBox 控件的事件

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

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

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

  例子

  在这个例子中，让我们在一个组框中添加四个复选框。复选框将允许用户选择他们了解组织的来源。如果用户选择带有文本“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 = "cainiaoya.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
  

  当上面的代码被执行并运行时使用 Start Microsoft Visual Studio 工具栏上可用的按钮，它将显示以下窗口 -

  

  检查所有框 -

  

  单击提交按钮 -