我们在用列表框时,经常会用到多栏列表。
但怎样取得多栏列表框第N栏的数据,请看下面代码:
Dim I As Integer '定义变量存储被选中行的序号
For I = 0 To 列表1.ListCount - 1
If 列表1.Selected(I) Then
Exit For
End If
Next I
'报出第一栏与第二栏的值
msgbox 列表1.Column(0, I) & " " & 列表1.Column(1, I)
责任编辑:小草