急～ 关于 ListView 的 Index 问题

Question

请问各位高手如何通过 VB6 + ListView,获得当前 ListView 选择的项的 ListIndex(像 List 的 ListIndex)?
谢谢～

Answer 1

Option ExplicitPrivate Sub Form_Load()
    Me.ListView1.ListItems.Add 1, "b1", "a1"
    Me.ListView1.ListItems.Add 2, "b2", "a2"
    Me.ListView1.ListItems.Add 3, "b3", "a3"
End SubPrivate Sub ListView1_ItemClick(ByVal Item As ComctlLib.ListItem)
    Me.Label1.Caption = Me.ListView1.SelectedItem.Index
End Sub--------
www.vicmiao.com
努力就有美好時光!

Answer 2

在请问各位高手,若想利用代码选择当前选择的下一项(例如原先选择的 ListIndex=0,现在想利用代码选择 ListIndex=1 的项),该如何做呢?
谢谢～

Answer 3

lIndex = ListView1.SelectedItem.Index
    Set ListView1.SelectedItem = ListView1.ListItems.Item(lIndex + 1)