VB的combox怎麽實現三級聯動

關鍵是在上壹級組合框的Click()事件或Chang()事件裏編寫對於下壹級組合框重新添加項目的代碼。我做了壹個簡單的示例，請看完整代碼如下：

說明：如果數據項比較多，那就應該用數據庫來實現！

Option Explicit

Private Sub Combo1_Click()

Combo2.Clear

If Combo1.Text = "初壹" Then

Combo2.AddItem "初壹1班"

Combo2.AddItem "初壹2班"

Combo2.AddItem "初壹3班"

ElseIf Combo1.Text = "初二" Then

Combo2.AddItem "初二1班"

Combo2.AddItem "初二2班"

Combo2.AddItem "初二3班"

Else

Combo2.AddItem "初三1班"

Combo2.AddItem "初三2班"

Combo2.AddItem "初三3班"

End If

Combo2.Text = Combo2.List(0)

End Sub

Private Sub Combo2_Change()

Call MyChang

End Sub

Private Sub Combo2_Click()

Call MyChang

End Sub

Private Sub Form_Load()

Combo1.AddItem "初壹"

Combo1.AddItem "初二"

Combo1.AddItem "初三"

Combo1.Text = Combo1.List(0)

Combo2.AddItem "初壹1班"

Combo2.AddItem "初壹2班"

Combo2.AddItem "初壹3班"

Combo2.Text = Combo2.List(0)

Combo3.AddItem "初壹1班aaa"

Combo3.AddItem "初壹1班bbb"

Combo3.AddItem "初壹1班ccc"

Combo3.Text = Combo3.List(0)

End Sub

Private Sub MyChang()

Combo3.Clear

Select Case Combo2.Text

Case "初壹1班"

Combo3.AddItem "初壹1班aaa"

Combo3.AddItem "初壹1班bbb"

Combo3.AddItem "初壹1班ccc"

Case "初壹2班"

Combo3.AddItem "初壹2班aaa"

Combo3.AddItem "初壹2班bbb"

Combo3.AddItem "初壹2班ccc"

Case "初壹3班"

Combo3.AddItem "初壹3班aaa"

Combo3.AddItem "初壹3班bbb"

Combo3.AddItem "初壹3班ccc"

Case "初二1班"

Combo3.AddItem "初二1班aaa"

Combo3.AddItem "初二1班bbb"

Combo3.AddItem "初二1班ccc"

Case "初二2班"

Combo3.AddItem "初二2班aaa"

Combo3.AddItem "初二2班bbb"

Combo3.AddItem "初二2班ccc"

Case "初二3班"

Combo3.AddItem "初二3班aaa"

Combo3.AddItem "初二3班bbb"

Combo3.AddItem "初二3班ccc"

Case "初三1班"

Combo3.AddItem "初三1班aaa"

Combo3.AddItem "初三1班bbb"

Combo3.AddItem "初三1班ccc"

Case "初三2班"

Combo3.AddItem "初三2班aaa"

Combo3.AddItem "初三2班bbb"

Combo3.AddItem "初三2班ccc"

Case "初三3班"

Combo3.AddItem "初三3班aaa"

Combo3.AddItem "初三3班bbb"

Combo3.AddItem "初三3班ccc"

End Select

Combo3.Text = Combo3.List(0)

End Sub

上一篇:全國中學生信息技術奧林匹克競賽比些什麽？

下一篇:5歲大的幼兒園學生已開始學習少兒編程，孩子能學會嗎？