vb.net - 循环通过控件（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”的所有组合框添加到第一个列表，并将所有其他组合框添加到第二个列表。然后枚举then并添加相应的项。

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