VBA窗体之列表框的基本用法

除非注明，文章均为战战如疯原创，转载请保留链接: http://www.zhanzhanrufeng.com/cat1/282.html，VBA交流群273624828。

昨天我们看了组合框的基本用法，今天我们再来看下和其非常相似的列表框的用法。

先来看列表框的两个有用的属性设置。一是设置项目前是否显示单选框或复选框，ListStyle属性，可以在属性窗格中设置，为0时没有单选框或复选框，为1时有单选框或复选框，第二个有用的属性是设置列表框的多选或多选，MultiSelect属性，为0时是单选，为1时是多选，为2时需要按住shift或ctrl来进行多选。

下面我们来看怎样往列表框中添加项目，和组合框中添加项目是完全一样的三种方法：

Private Sub UserForm_Initialize()
'ListBox1.AddItem "A"
'ListBox1.AddItem "B"
'ListBox1.AddItem "C"
'ListBox1.RowSource = "Sheet1!A1:A3"
ListBox1.List = Array("A", "B", "C")
End Sub

不再多说了，不明白的朋友可以参见上节“VBA窗体之组合框的基本用法”。

下面来看怎样得到列表框中选取的内容，看代码演示

Private Sub CommandButton1_Click()
Dim n
For n = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(n) = True Then
MsgBox "第" & n + 1 & "行数据" & ListBox1.List(n, 0) & "已被选取"
End If
Next
End Sub

ListCount是计算列表框一共有多少条项目，但是这些项目是从0开始编号的，所以我们从0开始对所有项目进行遍历，Selected(n)是判断编号为n的项目是否被选中，选中返回True，未选中返回False，List(x,y)表示第x行第y列的数据，注意这里x和y仍然是从0开始编码的。

不懂的结合实例自己看：http://pan.baidu.com/s/1gdHzHKn。