我需要VB6代碼組合框

Question

我需要VB6代碼，組合框如果我改變itemlist1到itemlist2自動傳送到列表2示例

combo1.listindex 
01 item list 1 
02 item list 2 

..等

itemlist1 
Apple 
Orange 

itemlist2 
Book 
CD desk 

Answer 1

希望我有這個權利。組合1包含「物品清單1」和「物品清單2」。如果我選擇「項目列表1」，則在組合2中填充「Apple，Orange」，如果選擇「項目列表2」，則在組合2中填充「Book，CD桌面」。以下是代碼。

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