请教一个关于ComboBox的问题

Question

有两个ComboBox,Combo1和Combo2,譬如Combo1有A,B,C,D四个选项,Combo2有A,B,C,D,E,F,G,H,I,J,K十一个选项,当在Combo1中选择A,在Combo2中依次选择A,B,C,D,E,F,G,H,I,J,K,并在选择一项后将其删除,这时再删除A,当在Combo1中选择B时,又将A,B,C,D,E,F,G,H,I,J,K重新添入Combo2的选项中,请问用代码怎样实现?

Answer 1

//在Combo2中依次选择A,B,C,D,E,F,G,H,I,J,K,并在选择一项后将其删除,这时再删除A
从这里开始就没有怎么看明白

Answer 2

就是将Combo2里的选项选一个删除一个直到全部删除,
这时删除Combo1的选项,再重新选择一项,这时重新将ABCDEFGHIJK填入Combo2的选项

Answer 3

Private Sub Combo1_Click()
    additem
End SubPrivate Sub Combo2_Click()
    Combo2.RemoveItem Combo2.ListIndex
    If Combo2.ListCount = 0 Then
        Combo1.RemoveItem Combo1.ListIndex
    End If
End SubPrivate Sub Form_Load()
    Combo1.additem "A"
    Combo1.additem "B"
    Combo1.additem "C"
    Combo1.additem "D"End SubPublic Sub additem()
    Combo2.additem "A"
    Combo2.additem "B"
    Combo2.additem "C"
    Combo2.additem "D"
    Combo2.additem "E"
    Combo2.additem "F"
    Combo2.additem "G"
    Combo2.additem "H"
    Combo2.additem "I"
    Combo2.additem "J"
    Combo2.additem "K"
End Sub