遍历控件（vb.net）

Question

（对VB.NET的理解：中级）

我在10个标签上有60个组合框。

我想如下向组合框添加项目，

组合框1到30的项目应为“ a”，“ b”，“ c”

组合框31到60的项目应为“ d”，“ e”，“ f”

我尝试使用以下方法，

Dim cntrl as New Control
    For Each cntrl InMe.Controls            
       If (TypeOf cntrl Is ComboBox) Then                
       Combobox.Items.Add("a")            
       Combobox.Items.Add("b")
       Combobox.Items.Add("c")                        
       End If        
    Next cntrl

但是，如何如上所述将项目添加到特定的组合框？

谢谢

Answer 1

有很多方法可以做到这一点。 例如：创建2个控件列表，并将所有必须具有项“ a”，“ b”，“ c”的组合框添加到第一个列表，将所有其他框添加到第二个列表。 然后枚举然后添加相应的项目。

Dim abcCombos As List(Of ComboBox)
Dim defCombos As List(Of ComboBox)

Private Sub Form1_Load(ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load

    abcCombos = New List(Of ComboBox)(New ComboBox() _
                  {ComboBox1, ComboBox2, ComboBox3})
    defCombos = New List(Of ComboBox)(New ComboBox() _
                  {ComboBox31, ComboBox32, ComboBox33})

End Sub

Private Sub PopulateABC()
    For Each cb as ComboBox in abcCombos
       cb.Items.Add("a")            
       cb.Items.Add("b")
       cb.Items.Add("c") 
    Next
End Sub

Private Sub PopulateDEF()
    For Each cb as ComboBox in defCombos
       cb.Items.Add("d")            
       cb.Items.Add("e")
       cb.Items.Add("f") 
    Next
End Sub