如何使用VBA对窗体ListBox控件的多列列表框的数据进行添加与删除

思路如下：

1、Listbox本身并不带有删除和添加的功能，需要额外写代码

2、对于删除Listbox中的元素可以利用 AddItem（）、RemoveItem（）方法

3、如果是通过点击listbox 删除表中的元素。这需要给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   ' 清除列表框。

步骤如下：

1.选择文本框

2.在窗体上拖动出合适大小

3.选中，修改属性，Multiline为True

4.修改ScrollBars属性为2

5.运行，就可以看到效果了

---