VB.Net列表框（ListBox）

列表框(ListBox)代表一个Windows控件，向用户显示项目列表。用户可以从列表中选择一个项目。 它允许程序员在设计时使用属性窗口或运行时添加项目。

可通过从工具箱中拖动一个ListBox控件并将其放在窗体上来创建一个列表框。如下所示 -

可以从属性窗口或运行时填充列表框项目。要将项目添加到ListBox，请选择ListBox控件并转到属性窗口，以获取此控件的属性。 单击Items 属性旁边的省略号(…)按钮。 这将打开“字符串集合编辑器”对话框，在其中输入一行的值。

ListBox控件的属性

以下是ListBox 控件的一些常用属性：

请参阅Microsoft文档以获取ListBox控件的属性，方法和事件的详细列表。

示例1

在下面的例子中，在设计时添加一个列表框，并在运行时添加项目。

参考以下步骤：

• 在窗体上拖放两个标签，一个按钮和一个ListBox控件。
• 设置第一个标签的文本属性，以提供标题“选择您最喜欢学习的语言”。
• 设置第二个标签的Text属性以提供标题“Destination”。当用户选择列表中的项目时，此标签上的文本将在运行时更改。
• 单击列表框和按钮控件以在代码编辑器中添加以下代码。

参考以下实现代码 -

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 = "ListBox - by xuhuhu.com"
        ListBox1.Items.Add("加拿大")
        ListBox1.Items.Add("俄罗斯")
        ListBox1.Items.Add("印度")
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        MsgBox("您的选择是： " + ListBox1.SelectedItem.ToString())
    End Sub
    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
        Label2.Text = ListBox1.SelectedItem.ToString()
    End Sub


End Class

执行上面示例代码，得到以下结果 -

当选择其中的一个项目：俄罗斯，然后点击确定，得到以下结果 -

示例2

在这个例子中，我们将填充一个带有项目的列表框，检索列表框中项目的总数，对列表框进行排序，删除一些项目，以及清除整个列表框的选项。

设计窗体如下：

参考以下示例代码 -

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 = "ListBox Demo2 - xuhuhu.com"
        ' creating multi-column and multiselect list box '
        ListBox1.MultiColumn = True
        ListBox1.SelectionMode = SelectionMode.MultiExtended
    End Sub
    'populates the list '
    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles btnFill.Click
        ListBox1.Items.Add("泡到一妞")
        ListBox1.Items.Add("学习精通各种算法")
        ListBox1.Items.Add("努力学习并得到奖学金")
        ListBox1.Items.Add("周游全国")
    End Sub
    'sorting the list '
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnSorted.Click
        ListBox1.Sorted = True
    End Sub
    'clears the list '
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnClear.Click
        ListBox1.Items.Clear()
    End Sub
    'removing the selected item '
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles btnRemove.Click
        ListBox1.Items.Remove(ListBox1.SelectedItem.ToString())
    End Sub
    'counting the numer of items '
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles btnCount.Click
        countLabel.Text = ListBox1.Items.Count
    End Sub
    'displaying the selected item on the third label '
    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) _
            Handles ListBox1.SelectedIndexChanged
        currSelectedLabel.Text = ListBox1.SelectedItem.ToString()
    End Sub
End Class

执行上面示例代码，得到以下结果 -

注意：项目代码为basecontrol/ListBox2 中的源代码。