循环遍历VB中的几个对象

Question

我想通过几个组合框来检查一些东西，我想通过它们循环，因为它们的名字如下：

• ComboBox1
• ComboBox2
• ComboBox3
• ComboBox4
• ...
• ComboBoxn

我想要运行的是：

If pcbN.Length <> ComboBoxN.Items.Count Then
        ' Take care of this
    End If 

N代表索引。

有没有办法做到这一点，还是我必须为每个对象编写相同的代码？

由于

Answer 1

假设它们都在同一个容器上（即您的表单或同一个面板），您可以使用Container.Controls.OfType(ComboBox)仅获取组合框。您可以使用简单的for或foreach循环遍历此控件。

For Each item As ComboBox In Me.Controls.OfType(Of ComboBox)
    ' Do your thing...
Next

有关OfType方法的详细信息，请阅读MSDN中的this page。