选中/取消选中复选框vb.net中的所有项目

Question

关于核对表框的几个问题：

1. 如何检查/解除列表中的所有项目

2. 如何复制或删除列表中的所有选中项目

Answer 1

虽然您可以扫描CheckedItems和CheckedIndices属性，但您无法同时修改它们。制作集合的副本并改为处理副本。

取消选中所有选中的项目：

Dim CheckedIndices(CheckedListBox1.CheckedItems.Count - 1) As Integer
CheckedListBox1.CheckedIndices.CopyTo(CheckedIndices, 0)
For Each Index As Integer In CheckedIndices
    CheckedListBox1.SetItemChecked(Index, False)
Next

删除所有选中的项目：

Dim CheckedItems(CheckedListBox1.CheckedItems.Count - 1) As Object
CheckedListBox1.CheckedItems.CopyTo(CheckedItems, 0)
For Each CheckedItem As Object In CheckedItems
    ' Alternateively, add code to copy CheckedItem here.
    CheckedListBox1.Items.Remove(CheckedItem)
Next

编辑：将数组声明更改为（.Count - 1）。 VB的声明语法有时令人愤怒。