VB.NET 列表框控件

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

列表框控件用于在 Windows 窗体中显示项目列表。它允许用户从列表框控件中选择一个或多个项目。此外，我们可以在运行时使用属性和事件窗口添加或设计列表框。

让我们通过以下步骤在 VB.NET Windows 中创建一个列表框控件。

步骤 1：从工具箱中拖动列表框控件，并将其放置到 Windows 窗体上，如下所示。

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

列表框属性

以下是列表框控件的属性。

属性名称	描述
AllowSelection	它接受一个值，该值定义列表框是否允许用户从列表中选择项目。
CanSelect	它获取一个值，该值确定是否可以选择列表框控件。
ColumnWidth	用于获取或设置多列列表框中列的宽度。
容器	顾名思义，一个容器获取存储列表框控件组件的 IContainer。
控制	用于获取控件中包含的控件的集合。
创建时间	它接受一个值，该值确定控件是否已创建。
宽度	用于设置列表框控件的宽度。
Visible	它接受一个值，该值确定列表框控件及其所有子控件是否显示在 Windows 窗体上。
SelectionMode	用于获取或设置确定在列表框中选择哪些项目的方法。
MultiColumn	通过在列表框中设置 True 值来允许显示项目的多列。

列表框方法

方法名称	描述
Add()	Add() 方法用于将项目添加到项目集合中。
删除	用于从项目集合中删除项目。但是，我们可以使用项目名称删除项目。
Clear	用于同时从项目集合中删除所有项目。
包含	用于检查特定项目是否存在于列表框中。
Show()	用于向用户显示控件。
Sort()	顾名思义，Sort() 方法用于排列或排序列表框中的元素。
ResetText()	ResetText() 方法用于重置列表框的文本属性并设置默认值。
ResetBackColor()	用于重置列表框的 BackColor 属性并设置默认值。
OnNotifyMessage	用于将列表框的消息通知给 Windows。
GetSelected	GetSelected 方法用于验证是否选择了指定的项目。

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

让我们创建一个程序来从 VB.NET 窗体中的列表框中选择一个项目。

Listbx.vb

Public Class Listbx
    Private Sub Listbx_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' set the title of the Form.
        Me.Text = "JavaTpoint.com"
        ' Add the items into the ListBox
        ListBox1.Items.Add("Earth")
        ListBox1.Items.Add("Mercury")
        ListBox1.Items.Add("Mars")
        ListBox1.Items.Add("Jupiter")
        ListBox1.Items.Add("Venus")
        ListBox1.Items.Add("Neptune")
        ListBox1.Items.Add("Uranus")
        ' Set the name of the Button1 and Button2
        Button1.Text = "Show"
        Button2.Text = "Exit"
        Label2.Text = "Select the solar system from the ListBox"
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim lt As String  ' define a local variable.
        lt = ListBox1.Text  'accept the data from the ListBox1
        MsgBox(" Selected Solar System is " & lt)  ' Display the selected item 
    End Sub
    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
        Label1.Text = ListBox1.SelectedItem.ToString()  'When a user clicks on an item, it displays the item name.
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        End 'End or exit an application
    End Sub
End Class

输出