Question

VB ListView 复选框问题!

如何达到这样的呢?按钮Command1按一下后 ListView 里面的复选框全部勾上,按钮Command2按一下后 ListView 里面的复选框勾勾全部去掉,请给个参考 谢谢!

Answer 1

Private Sub Command2_Click()
    For i = 1 To ListView1.ListItems.Count

        ListView1.ListItems.Item(i).Checked = False

    Next
End Sub
Private Sub Command1_Click()
    For i = 1 To ListView1.ListItems.Count

        ListView1.ListItems.Item(i).Checked = True

    Next
End Sub

Private Sub Form_Load()
    For i = 1 To 100
        ListView1.ListItems.Add , i & "h", i
        ListView1.ListItems.Item(i).Checked = False
        ListView1.Checkboxes = True
    Next
End Sub

Answer 2

For i = 1 To ListView1.ListItems.Count'全选 ListView1.ListItems(i).Checked = True'全取消 ListView1.ListItems(i).Checked = False'反选 ListView1.ListItems(i).Checked = not ListView1.ListItems(i).CheckedNext