关于Listview控件的几个问题

Question

如何在ListView条目中加入CheckBox，并获得CheckBox的值谢谢

Answer 1

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

Answer 2

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 SubPrivate 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