【发布时间】：2011-07-11 00:08:12
【问题描述】：
关于检查列表框的几个问题：
如何勾选/取消勾选列表中的所有项目
如何复制或删除列表中所有选中的项目
【问题讨论】：
【发布时间】：2011-07-11 00:08:12
【问题描述】：
虽然您可以扫描 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的声明语法有时让人生气。
【讨论】：
-
如何获取项目名称以便在文件路径中使用它？
-
您将哪些对象添加到列表框中？如果每个对象都是一个字符串，您可以放心地将术语“对象”替换为“字符串”。如果是 FileInfo 对象，将“Object”替换为“FileInfo”，然后使用 FileInfo 的属性。