循环通过控件 (vb.net)

Question

（理解 VB.NET：中级）

我在 60 个选项卡上有 10 个组合框。

我想将项目添加到组合框中，如下所示，

组合框 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