VB.NET 复选框控件

2025年3月17日 | 阅读 3 分钟

复选框控件是一个允许用户从可用选项中选择或取消选择选项的控件。选中复选框后，Windows 窗体上将出现一个勾号或复选标记。

让我们使用以下步骤在 VB.NET Windows 窗体中创建一个复选框控件。

步骤 1： 我们需要从工具箱中拖动复选框控件并将其放到 Windows 窗体上，如下所示。

步骤 2： 将复选框添加到窗体后，我们可以通过单击复选框控件来设置复选框的各种属性。

复选框属性

VB.NET 复选框控件有一些属性。

属性	描述
默认	它用于获取复选框的默认大小。
AutoCheck	AutoCheck 属性用于检查当用户单击复选框控件时，控件的选中值或外观是否可以自动更改。
CheckAlign	它用于设置复选标记的对齐方式，例如在复选框上水平或垂直对齐。
外观	Appearance 属性用于通过设置值来显示复选框控件的外观。
CheckState	CheckState 属性用于验证复选框状态是否在窗口窗体中被选中。
ThreeState	ThreeState 属性用于通过设置值来检查控件是否允许设置三个选中位置而不是两个。
FlatStyle	它用于获取或设置复选框的平面外观。

复选框方法

VB.NET 复选框控件有一些方法。

方法	描述
OnClick	OnClick 方法用于获取复选框控件中的 Click 事件。
OnCheckStateChanged	它用于在复选框控件中调用 CheckStateChanged 事件。
ToString	ToString 方法用于返回复选框控件的当前字符串。
OnCheckedChanged	当复选框控件中的 Checked 属性更改时，将发生 OnCheckedChanged 事件。
OnMouseUp	当它在复选框控件中接收到 OnMouseUp 事件时使用。

复选框事件

VB.NET 复选框控件有一些事件。

事件	描述
CheckedChanged	当 checked 属性的值更改为复选框时，找到 CheckedChanged 事件。
DoubleClick	当用户双击复选框控件时发生。
CheckStateChanged	当 CheckState 属性的值更改为复选框控件时发生。
AppearanceChanged	当 Appearance 的属性更改为复选框控件时发生。

让我们创建一个程序来了解在 VB.NET 窗体中使用复选框控件。

Checkbx.vb

Public Class Checkbxvb
    Private Sub Checkbxvb_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Text = "javaTpoint.com" ' Set the title name of the form
        Label1.Text = "Select the fruits name"
        CheckBox1.Text = "Apple"
        CheckBox2.Text = "Mango"
        CheckBox3.Text = "Banana"
        CheckBox4.Text = "Orange"
        CheckBox5.Text = "Potato"
        CheckBox6.Text = "Tomato"
        Button1.Text = "Submit"
        Button2.Text = "Close"
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim fruit As String
        fruit = " "
        If CheckBox1.Checked = True Then
            fruit = "Apple"
        End If
        If CheckBox2.Checked = True Then
            'fruit = CheckBox2.Text
            fruit = fruit & " Mango"
        End If
        If CheckBox3.Checked = True Then
            fruit = fruit & " Banana"
        End If
        If CheckBox4.Checked = True Then
            fruit = fruit & " Orange"
        End If
        If CheckBox5.Checked = True Then
            fruit = fruit & " Potato"
        End If
        If CheckBox6.Checked = True Then
            fruit = fruit & " Tomato"
        End If
        If fruit.Length <> 0 Then
            MsgBox(" Selected items " & fruit)
        End If
        CheckBox1.ThreeState = True
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        End 'terminate the program
    End Sub
End Class

输出