vb6.0 如何判断list 选中的是第几个

Question

返回list 选中的是第几个

Answer 1

Msgbox "选中了List的第" & list1.listindex+1 "项。它的Index为:" & list1.listindex本回答被提问者采纳

Answer 2

List1.SelCount 返回在 ListBox 控件中被选中项的数量
List1.Selected(index) [= boolean] 返回或设置在 ListBox 控件中的一个项的选择状态

用循环遍历所有项目，判断Selected状态。给你个小例子变量定义我就省了：
For i = 0 To List1.ListCount
If List1.Selected(i) Then
'此时的i变量就是其中一选中项的index
'这里写上对被选中项目的操作代码
End If
End

Answer 3

Private Sub List1_Click()
Print List1.ListIndex + 1
End Sub