1个回答
展开全部
Dim i As Integer, sCount As Integer
sCount = 0
For i = 0 To ListView1.ListItems.Count - 1
If ListView1.ListItems(i).Selected Then
sCount = sCount +1
Endif
Next
MsgBox "选中" & sCount & "行"
sCount = 0
For i = 0 To ListView1.ListItems.Count - 1
If ListView1.ListItems(i).Selected Then
sCount = sCount +1
Endif
Next
MsgBox "选中" & sCount & "行"
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
