Question

用vb编程序 ，ListBox控件的Style属性已经设置为1-Checkbox，可以多选，如何获得所有选中数据？？

用list.text 或者list.index都只能或得当前选中的（只有一个值），有什么方法能把所有值都获取呢？

Answer 1

ListBox.SelCount 表示选中的个数，如果用数组的话，可以这样定义 dim a(1 to ListBox.SelCount ),然后来放入数据
用循环搜索选中的的数据
Dim a(1 to ListBox.SelCount )
Dim b as intenger
b = 1
For i=0 to ListBox.ListCount
If List1.Selected(i) Then '如果条目被选中
'获得选中条目数据
a(b)=List1Box.list(i)
b=b+1
end if
Next i

Answer 2

Private Sub Command1_Click()
For i = 0 To List1.ListCount - 1
If List1.Selected(i) Then s = s & List1.List(i) & vbCrLf
Next
MsgBox s
End Sub