listbox控件中的值多次选种的问题

Question

我有一个listbox控件，里面有很多值，我想用ctrl键按住不放来选择很多的值，请问怎么样来表示这么多选择的值啊，是list1.text吗，好象这样只能表示一个值，请问怎么样来表示这么多选中的值啊？

Answer 1

Private Sub Command2_Click()
    Dim i%
    For i = 0 To List1.ListCount - 1
        If List1.Selected(i) Then Debug.Print List1.List(i)
    Next
End Sub

Answer 2

同上
需要轮循判断List1.Selected(i)属性

Answer 3

为什么用CTRL键选啊?把LISTBOX的STYLE属性设置成1就可以了呀,然后再用faysky2()的方法