VBA中如何使用ListBox控件呢？

ListBox 控件显示项目列表，从其中可以选择一项或多项。如果项目总数超过了可显示的项目数，就自动在 ListBox 控件上添加滚动条。

如果未选定燃塌项目，则 ListIndex 属性值是 -1。列表的第一项是 ListIndex 0，衡段衡ListCount 属性值总是比最大的 ListIndex 值大 1。

语法

ListBox

说明

使用 AddItem 或者 RemoveItem 方法可以添加或者删除 ListBox 控件中的项目。对 List、ListCount 和 ListIndex 属性进行设置就可以访问 ListBox 中的项目。也可以在设计时使用 List 属性在列表中增加咐做项目。

实例

   Dim Entry, I, Msg   ' 声明变量。

   Msg = "Choose OK to add 100 items to your list box."

   MsgBox Msg   ' 显示信息。

   For I = 1 To 100   ' 计数值从 1 到 100。

      Entry = "Entry " & I   ' 创建输入项。

      List1.AddItem Entry   ' 添加该输入项。

   Next I

   Msg = "Choose OK to remove every other entry."

   MsgBox Msg   ' 显示信息。

   For I = 1 To 50   ' 确定如何

      List1.RemoveItem I   ' 每隔一项

   Next I   ' 删除。

   Msg = "Choose OK to remove all items from the list box."

   MsgBox Msg   ' 显示信息。

   List1.Clear   ' 清除列表框。

参考：

代码及注释如下：

Private Sub List1_DblClick()'双击list1时触发事件

List2.AddItem List1.Text'list2中增加当前选中的list1的文本

List1.RemoveItem List1.ListIndex'list1中删除list1当前选中的条目

End Sub

此例中用到的RemoveItem相关知识：

object.RemoveItem index

RemoveItem 方法的梁猜语法包含下列部分：

部分 描述

object

必需的。一个对象表达式，其值为“应用于”列表中的一个胡燃对象。

index

必需的。一个整数，它表示要删除的项或行在对象中的位置。对于 ListBox 或 ComboBox

中的首裤渣虚项或 MS Flex Grid 控件中的首行，index = 0。

---