VB中怎么把多个ComboBox联系在一起？

2025-04-25 15:44:30

推荐回答（4个）

回答1：

给你个参考
Private Sub Combo1_Click()
Combo2.AddItem "北京"
Combo2.AddItem "上海"
Combo2.AddItem "重庆"
End Sub

Private Sub Combo2_Click()
Combo3.Clear
Select Case Combo2.Text
Case "北京"
Combo3.AddItem "颐和园"

Case "上海"
Combo3.AddItem "东方明珠"
Combo3.AddItem "朱家角"
Combo3.AddItem "外滩"

End Select

End Sub

Private Sub Combo3_Click()
Select Case Combo3.Text
Case "颐和园"
'……
Case "东方明珠"
'……
Case "朱家角"
'……

End Select

End Sub

Private Sub Form_Load()
Combo1.AddItem "中国"

End Sub

回答2：

我给做了一个样例，你应该理解的。

回答3：

用块if 语句判断

回答4：

选择后重写AddItem就可以。