如何让多个下拉控件同步.txt

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

我 采 用 你 的 代 码 ， 的 确 存 在 问 题 。 你 可 以 试 试 下 面 的 代 码 ， 在 我 这 里 正 常 ： 
    Private Sub Combo1_Click() 
     Combo2.ListIndex = Combo1.ListIndex 
     Combo3.ListIndex = Combo1.ListIndex 
    End Sub 
     
    Private Sub Combo2_Click() 
     Combo1.ListIndex = Combo2.ListIndex 
     Combo3.ListIndex = Combo2.ListIndex 
    End Sub 
     
    Private Sub Combo3_Click() 
     Combo2.ListIndex = Combo3.ListIndex 
     Combo3.ListIndex = Combo3.ListIndex 
    End Sub 
     
    Private Sub Form_Load() 
     Dim i 
     For i = 0 To 5 
     Combo1.AddItem "A" & i 
     Combo2.AddItem "B" & i 
     Combo3.AddItem "C" & i 
     Next 
     Combo1.ListIndex = 0 
    End Sub 
    另 外 一 个 办 法 是 
    Private Sub Combo1_Click() 
     If Combo2.ListIndex <> Combo1.ListIndex Then 
     Combo2.Text = Combo2.List(Combo1.ListIndex) 
     End If 
     If Combo3.ListIndex <> Combo1.ListIndex Then 
     Combo3.Text = Combo3.List(Combo1.ListIndex) 
     End If 
    End Sub 
<END>