如何选择combo1后，让combo2中的内容跟着变.txt

VB技巧问答10000例 VB技巧问答10000例

在 Combo1的 Click事 件 中 填 充 Combo2， 如 ： 
    Dim nIndex As Integer 
    Private Sub Combo1_Click() 
     If nIndex = Combo1.ListIndex Then Exit Sub 
     nIndex = Combo1.ListIndex 
     Combo2.Clear 
     Select Combo1.ListIndex 
     Case 1 
     Combo1.AddItem "A-A" 
     Combo1.AddItem "A-B" 
     Case 2 
     Combo1.AddItem "B-A" 
     Combo1.AddItem "B-B" 
     End Select 
    End Sub 
     
    Private Sub Form_Load 
     nIndex = -1 
    End Sub 
<END>