关于Combo控件的控件问题

Question

大家好：
    我想向大侠的请教的问题是：
    我有两个Combo控件为Combo1,Combo2,Form_Load中已加载：Combo1.AddItem(1),Combo2.AddItem(2).
若某一BUTTON按上去执行：
当Combo1=1时，Comb2再加载Combo2.AddItem(0),Combo2.AddItem(1)
当Combo1=2时，Comb2再加载Combo2.AddItem(2),Combo2.AddItem(3)   请问如何实现？通过Combo1的事件能实现吗？哪个事件？
   
   解决了散分。呵呵。
   多谢！

Answer 1

Private Sub Combo1_Click()
If Combo1.ListIndex = 0 Then
Combo2.AddItem "e,f,g,h"
Combo2.Text = Combo2.List(1)
End If
If Combo1.ListIndex = 1 Then
Combo2.AddItem "i,j,k,l"
Combo2.Text = Combo2.List(2)
End If
End SubPrivate Sub Form_Load()
Combo1.AddItem "1234"
Combo1.AddItem "5678"
Combo1.Text = Combo1.List(0)
Combo2.AddItem "a,b,c,d"
Combo2.AddItem "e,f,g,h"
Combo2.Text = Combo2.List(0)
End Sub

Answer 2

Private Sub Combo1_Click()
  Combo2.Clear
  Select Case Combo1.Text
     Case "1"
        Combo2.AddItem 0
        Combo2.AddItem 1
     Case "2"
        Combo2.AddItem 2
        Combo2.AddItem 3
  End Select
  Combo2.ListIndex = 0
End SubPrivate Sub Form_Load()
  Combo1.AddItem 1
  Combo1.AddItem 2
  Combo1.ListIndex = 0
End Sub