对于每个在检查列表框中。<项目>作为对象返回，而不是作为控件返回

Question

我之前填充了一个 CheckedListBox。我想使用“for every / next”循环遍历 CheckedListBox 中的所有项目，并对 checkedlistbox 的每个迭代元素执行大量“操作”。

示例代码：

    For Each item In CheckedListBox1.Items

        If item.Checked = True Then

            'do stuff like
            item.BackColor = Color.Blue

        Else

            'do other stuff
            item.BackColor = Color.Brown

        End If

    Next

问题是它是“对象”类型而不是“控件”类型。如果我强制迭代 var As CheckBox，它会抛出一个 InvalidCastException，指出类型“System.String”不能与类型“System.Windows.Forms.CheckBox”关联

我知道我可以轻松解决这个问题，但我想使用a for every /next 循环，因为我在该循环中有很多代码（并且不能使用 With）并且总是直接指向对象是我希望避免的事情，我真的需要代码尽可能简单。

我实际上花了一下午的时间寻找这个但找不到任何答案。

Answer 1

CheckedListBox 不是 CheckBox 控件的集合。
它没有包装对象的集合。

CheckedListBox 控件是一个简单的控件，只能显示简单的项目列表；听起来你正在寻找更强大的东西。 （例如，如果没有所有者绘制，就不可能更改单个项目的背景颜色）

您应该使用 ListView （将 CheckBoxes 属性设置为 true） .
然后，您可以循环访问其 Items 集合中的 ListViewItem 实例。

Answer 2

For Each item In SuppliersCheckList.CheckedItems
        If SuppliersCheckList.GetItemCheckState(SuppliersCheckList.Items.IndexOf(item)) Then
            MsgBox(item.ToString)
        End If
Next