一个CHECKBOX，一个LISTVIEW，如何实现在CHECKBOX上打勾后，LISTVIEW的各项被全部选中。。。

Question

在FORM上画了一个CHECKBOX，一个LISTVIEW控件，LISTVIEW的CHECKBOXES属性被设置为真.想实现
1.在CHECKBOX控件上打勾后，LISTVIEW的各项被全部选中(表现为每行前面的checkboxes被打上勾)
2.刚好与上面相反，即取消CHECKBOX控件上的勾后，LISTVIEW的各项被都不被选中(表现为每行前面的checkboxes都没有被打上勾)

Answer 1

send LVM_SETITEMSTATE to list ctrl with item specification -1 and mask LVIF_SELECTED

Answer 2

Private Sub Check1_Click()
    Dim li As ListItem
    For Each li In ListView1.ListItems
        li.Checked = Check1.Value
    Next
End Sub

Answer 3

Private Sub Check1_Click()
Dim i  As Integer
For i = 1 To ListView1.ListItems.Count
ListView1.ListItems(i).Checked = Check1.Value
Next
End SubPrivate Sub Form_Load()
Dim i As Integer
Dim RItem As ListItem
For i = 1 To 9
    Set RItem = ListView1.ListItems.Add(, , i)
next
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , "id"
End Sub

Answer 4

supergreenbean(超级绿豆) 就可以了