Ich brauche VB6-Code Combobox

Question

Ich brauche Code für VB6, ComboBox, wenn ich itemlist1 ändern automatische Übertragung itemlist2 2 Beispiel

combo1.listindex 
01 item list 1 
02 item list 2 

..etc

zur Liste

itemlist1 
Apple 
Orange 

itemlist2 
Book 
CD desk 

Answer 1

Ich hoffe, ich habe das richtig gemacht. Die Combo1 enthält "Artikelliste 1" und "Artikelliste 2". Wenn ich "Artikelliste 1" wähle, wird "Apple, Orange" in Combo2 ausgefüllt und wenn ich "Artikelliste 2" wähle, wird "Buch, CD-Schreibtisch" in Combo2 aufgefüllt. Unten ist der Code.

Private listItem1() As String 
Private listItem2() As String 

Private Sub Combo1_Click() 
    Dim intCount As Integer 
    Combo2.Clear 
    If Combo1.ListIndex = 0 Then 
     For intCount = LBound(listItem1) To UBound(listItem1) - 1 
      Combo2.AddItem listItem1(intCount), intCount 
     Next intCount 
    ElseIf Combo1.ListIndex = 1 Then 
     For intCount = LBound(listItem2) To UBound(listItem2) - 1 
      Combo2.AddItem listItem2(intCount), intCount 
     Next intCount 
    End If 
    Combo2.ListIndex = 0 
End Sub 

Private Sub Form_Load() 

    Combo1.AddItem "Item list 1", 0 
    Combo1.AddItem "Item List 2", 1 

    ReDim listItem1(2) 
    ReDim listItem2(2) 
    listItem1(0) = "Apple" 
    listItem1(1) = "Orange" 
    listItem2(0) = "Book" 
    listItem2(1) = "CD Desk" 

    Combo1.ListIndex = 0 

End Sub