루프를 통한 컨트롤 (vb.net)

Question

(VB.NET : Understanding의 이해)

10 개의 탭에 60 개의 콤보 박스가 있습니다. I는 다음과 콤보에 항목을 추가 할

,

콤보 1~30 항목 "D"를 가져야 상품 "A", "B", "C"

콤보 (31) (60)에 있어야 "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