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
在项目属性中选中“Microsoft Windows Common Controls 6.0(sp4) ”所代的Listview。
在listview的属性页中将“CheckBoxs”复选框选中后,每个条目就带checkbox了。
dim xItem as MSComctlLib.ListItem
xItem.Checked=true '就可以设置复选框了。