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

在本课中，您将学习如何在列表中添加项以及从列表中删除项。您还将学习如何在用户选择列釉涑杵抑表中的项时执行操作。如果希望为用户提供一个选项列表，可以在 ListBox 控件或 ComboBox 控件中显示项的列表。

工具/原料

电脑一台

VB2008

了解ListBox和ComboBox控件

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_Se盟敢势袂lectedIndexChang髫潋啜缅ed 事件处理程序中，添加下列代码以显示文本框中的颜色。在将 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.SelectedItemEnd If

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

从列表框中删除项

1、将下面的代码添加到 ListBox_DoubleClick 事件处理程序中的 苇质缵爨End If 语句上方。Me.ListBox1.Items.R髫潋啜缅emove(Me.ListBox1.SelectedItem)

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

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