Question

vb编程中的问题，高手指点，为什么窗体中没有显示，已经将multiselect的属性值设为了1-simple

Dim i As Integer
Private Sub Command1_Click()
For i = 0 To ListCount - 1
If List1.Selected(i) = True Then
Print List1.List(i)
End If
Next
End Sub

Answer 1

Private Sub Command1_Click()
Dim i As Integer

For i = 0 To List1.ListCount - 1 'List1不能省略
If List1.Selected(i) = True Then
Print List1.List(i)
End If
Next
End Sub

Answer 2

上楼说的也对啊 ListCount 不能表示出 list1的行数 没对象!