Private Sub Command1_Click()
Dim i As Integer
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).Checked = True Then
MsgBox "第" & i & "行被选中", , "提示"
End If
Next
End Sub
希望对你有用。。。。
2011-05-16 15:08
2011-05-16 15:58
2011-05-16 16:34