 |
没有现成的属性，你只能遍历整个ListItems，检查每个ListItem的Selected属性。使用下面的代码：
Dim i, nCount, nFirst, nLast
nCount = 0
nLast = 0
nFirst = ListView1.ListItems.Count + 1
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).Selected Then
nCount = nCount + 1
If nFirst > i Then
nFirst = i
End If
If nLast < i Then
nLast = i
End If
End If
Next
If nCount Then
MsgBox "选中" + CStr(nCount) + "个条目！" _
+ vbCrLf + "第一个选中的为" + CStr(nFirst) + _
vbCrLf + "最后一个为" + CStr(nLast)
Else
MsgBox "没有选中条目！"
End If
 rkdeen的意见：
如果listview中的item太多，那么遍礼一次会很浪费时间,建议使用sendmessage发送LVM_GETSELECTEDCOUNT消息来获得选定的数目。
此问题由李海回答。
附加关键字：编程, 源程序, programming, source code, Visual Basic, VB, Windows 9x控件, listview, treeview, monthview, progress bar。
|
当ListView能够多选时，如何得到所选中的总行数
