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

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 20 行

在 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>