0

（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

しかし、上記のように特定のコンボボックスにアイテムを追加する方法は?

ありがとう

4

1 に答える 1

1

それを行う方法には多くの方法があります。例: コントロールの 2 つのリストを作成し、項目 "a"、"b"、"c" を持つ必要があるすべてのコンボ ボックスをその最初のリストに追加し、その他すべてを 2 番目のリストに追加します。次に列挙し、対応する項目を追加します。

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
于 2012-10-07T17:23:34.523 に答える