请教一个简单的问题,关于ListView

u011011312 2013-06-23 08:01:04
我怎么样用代码探查在这个ListView里,我选择了几个复选框啊
...全文
89 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
worldy 2013-06-24
  • 打赏
  • 举报
回复
Private Sub Command1_Click()
    Dim ti As MSComctlLib.ListItem
    Dim SelNum As Long
    For Each ti In LV.ListItems
        If ti.Checked Then
            SelNum = SelNum + 1
        End If
    Next
    
    MsgBox "选择了" & SelNum & "条项目"
    
End Sub

1,451

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧