VB入门教程：[20]使用菜单

1、ListBox 控件可让您同时指定多个项，并使用户能够浏览较长的列表。当用户选择一个项时，该项会在列表中突出显示，如下图所示：

2、ComboBox 控件是文本框和列表框的组合。默认情况下，组合框以文本框形式出现，但当用户单击下拉箭头时，将显示一个列表。当用户选择一个项时，该项会突出显示并在默认视图中可见，如下图所示：

1、新建一个项目。

将“ListBox”控件添加到窗体中，保留默认名称“ListBox1”。

2、双击此窗体以在代码编辑器中添加默认事件处理程序。

在 Form_Load 事件处理程序中，添加下列代码以向列表添加项。

With Me.ListBox1.Items    .Add("red")    .Add("blue")    .Add("green")    .Add("yellow")    .Add("orange")    .Add("pink")    .Add("brown")    .Add("black")End With

3、运行程序。此窗体将打开并显示包含颜色列表的 ListBox。关闭程序。

1、将“TextBox”控件添加到窗体中，保留默认名称“TextBox1”。

2、双击“ListBox”控件以便在代码编辑器中添加默认事件处理程序。

在 ListBox_SelectedIndexChanged 事件处理程序中，添加下列代码以显示文本框中的颜色。在将 ColorName 变量分配给文本框的 BackColor 属性之前，请确保此变量包含一个值。

Dim ColorName As String = CStr(ListBox1.SelectedItem)

If ColorName IsNot Nothing Then    Me.TextBox1.BackColor = _        System.Drawing.Color.FromName(ColorName)End If

3、 运行程序。当窗体打开时，单击列表框中的某个项以查看文本框中显示的选定颜色。关闭程序。

1、将“ComboBox”控件添加到窗体中，保留默认名称“ComboBox1”。

2、右键单击窗体并单击“查看代码”，打开代码编辑器。

在代码编辑器中的“类名”下拉列表中，单击“ListBox1”。

在“方法名称”下拉列表中，单击“DoubleClick”以创建事件处理程序。

向 ListBox1_DoubleClick 事件处理程序中添加下列代码以向组合框添加项。由于可以存在空的列表框，因此在添加选定项之前，应确保此选定项不为空。

If ListBox1.SelectedItem IsNot Nothing Then    If Not ComboBox1.Items.Contains(Me.ListBox1.SelectedItem) Then        Me.ComboBox1.Items.Add(Me.ListBox1.SelectedItem)    End If

    Me.ComboBox1.SelectedItem = Me.ListBox1.SelectedItem

End If

3、运行程序。双击列表框中的项并确认是否仅将这些项添加到组合框一次。关闭程序。

1、将下面的代码添加到 ListBox_DoubleClick 事件处理程序中的 End If 语句上方。

Me.ListBox1.Items.Remove(Me.ListBox1.SelectedItem)

2、运行程序。双击列表框中的项并确认是否将这些项从列表框中删除并添加到组合框。

3、在本课中，我们学习了如何向列表中添加项以及从列表中删除项。我们还学习了如何在用户选择项时执行操作。在下一课中，我们将学习如何使用显示日期和时间的控件。