关于Listview控件的几个问题

lirun 2003-10-19 10:07:30
如何在ListView条目中加入CheckBox,并获得CheckBox的值

谢谢
...全文
61 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
rainstormmaster 2003-10-19
  • 打赏
  • 举报
回复
Private Sub Command1_Click()
Dim mitem As ListItem
'如果想获得某个listitem的checked值
Set mitem = Me.ListView1.ListItems(10)
Debug.Print mitem.Checked
'如果想获得所有listitem的checked值
For Each mitem In Me.ListView1.ListItems
Debug.Print "第" + CStr(mitem.Index) + "个listitem的checked值为:" + CStr(mitem.Checked)
Next
End Sub

Private Sub Form_Load()
Dim item As ListItem
Dim i As Long
Dim Checked As Boolean
Me.ListView1.Checkboxes = True
For i = 1 To 100
Set item = Me.ListView1.ListItems.Add(, , "item " + CStr(i))
Checked = Not Checked
item.Checked = Checked
Next
End Sub
easydone 2003-10-19
  • 打赏
  • 举报
回复
在项目属性中选中“Microsoft Windows Common Controls 6.0(sp4) ”所代的Listview。
在listview的属性页中将“CheckBoxs”复选框选中后,每个条目就带checkbox了。
dim xItem as MSComctlLib.ListItem
xItem.Checked=true '就可以设置复选框了。

1,451

社区成员

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

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