使用ListView时，在多选时怎样得到所有选中行的index?

Question

使用ListView时，在多选时怎样得到所有选中行的index?

Answer 1

For CyCle = 1 To Ｎ
        If ListView1.ListItems(CyCle).Checked = True Then
　　　　　　　
　　　　end if
    next cycle

Answer 2

For i = 1 To ListView.ListItems.Count
        If ListView.ListItems(i).selected Then
           ...
        End If
    Next i
----
应当是判断selected

Answer 3

dim xItem as ListItem
for each xitem in ListView.ListItems
 if xitem.checked then
  debug.print xitem.index
 enf if
next

Answer 4

回复人： fredlin(fred) ( ) 信誉：96  2005-02-02 16:56:00  得分: 0  
 
 
   For i = 1 To ListView.ListItems.Count
        If ListView.ListItems(i).selected Then
           ...
        End If
    Next i
----
应当是判断selected
  
 
-----------------------------
next i--这个i多余

Answer 5

For i = 1 To ListView.ListItems.Count
        If ListView.ListItems(i).selected Then
           ...
        End If
Next i这个i也并非是多余的，有时候它很有用，
比如说：
for i=1 to 2
  for j=2 to 3
    ...
next j,i
还有就是它可以很清楚的标识某个for循环在哪个地方结束
for i...
  ...
  for j...
   ....
  next j
  .....
  for k...
     for m....
     ....
     next m
  next k
next i