VB.NET CheckedListBox 控件

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

CheckedListBox 类似于 Listbox，只是它显示列表中的所有项目，并带有复选框，允许用户选中或取消选中单个或多个项目。

让我们按照以下步骤在 VB.NET Windows 窗体中创建一个 CheckedListBox 控件。

步骤 1： 从工具箱中拖动 CheckedListBox 控件，然后将其拖放到 Windows 窗体上，如下所示。

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

CheckedListBox 属性

CheckedListBox 控件有以下属性。

性质	描述
AccessibilityObject	它获取一个值，该值确定 AccessibilityObject 是否已分配给 CheckedListBox 控件。
AccessibleName	它获取或设置一个值，该值指示辅助客户端应用程序是否使用了 checkedlistbox 控件的名称。
AllowSelection	它获取一个值，该值指示 ListBox 是否允许从列表中选择项目。
AllowScollOffset	它获取或设置一个值，该值表示 CheckedListBox 控件是否在 ScrollControlIntoView(Control) 中滚动。
BorderStyle	它用于通过获取或设置一个值来设置 CheckedListBox 周围的边框类型。
CheckedItems	它用于存储 CheckedListBox 中已选中的项目集合。
ScrollAlwaysVisible	它用于设置或获取一个值，该值指示垂直滚动条是否始终出现在 Windows 窗体中。
SelectedItems	它用于从 CheckedListBox 中获取所有选定的项目。
SelectionMode	它用于获取或设置一个值，该值表示 CheckedListBox 中项目的选择模式。
TopIndex	它用于设置 CheckedListBox 中索引顶部第一个可见的项目。

CheckedListBox 方法

方法	描述
ClearSelected()	它用于取消选择 CheckedListBox 中所有选定的项目。
CreateAccessibilityInstance()	它用于在 CheckedListBox 控件中创建对象的新辅助功能。
CreateItemCollection()	它用于为列表框中收集的项目创建新实例。
DestroyHandle()	它用于销毁与 CheckedListBox 关联的句柄。
Equals(Object)	它用于验证指定的对象是否等于 CheckedListBox 中的当前对象。
FindForm()	它用于获取 CheckedListBox 具有控件的窗体。
GetItemText(Object)	它用于获取 CheckedListBox 中指定项目的文本。
GetType()	它用于获取 CheckedListBox 中的当前项目类型。
Show()	Show() 方法用于向用户显示 CheckedListBox 控件。
Sort()	Sort() 方法用于对 CheckedListBox 中可用的所有项目进行排序或组织。

此外，我们还可以参考 VB.NET Microsoft 文档以获取 CheckedListBox 属性和方法的完整列表。

让我们创建一个程序，以便在 VB .NET 窗体中从 CheckedListBox 中选择或选中多个项目。

CheqListvb.vb

Public Class CheqListvb
    Private Sub CheqListvb_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Text = " JavaTpoint.com"
        CheckedListBox1.Items.Add("VB.NET")
        CheckedListBox1.Items.Add("Java")
        CheckedListBox1.Items.Add("Python")
        CheckedListBox1.Items.Add("C")
        CheckedListBox1.Items.Add("C#")
        CheckedListBox1.Items.Add("PHP")
        CheckedListBox1.Items.Add("JavaScript")
        CheckedListBox1.Items.Add("Ruby Language")
        CheckedListBox1.Items.Add("Android")
        CheckedListBox1.Items.Add("Perl")
        Label1.Text = "Choose one or more programming languages of your choice. "
        Button1.Text = "Select"
        Button2.Text = "Exit"
    End Sub

    ' To submit the checked items, click on Button1 or Select
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim cheq As New System.Text.StringBuilder
        For Each item In CheckedListBox1.CheckedItems
            cheq.Append(item)
            cheq.Append(" ")
        Next
        MessageBox.Show(" Your Checked Items are : " & cheq.ToString())

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        End 'terminate the program
    End Sub

输出