vb淘寶源碼

A. 如何使用VB6.0實現按地區查找的下拉框

舉個簡單例子，窗體放兩個下拉框，代碼如下：
Private Sub Combo1_Click()
Combo2.Clear
Select Case Combo1.ListIndex
Case 0
Combo2.AddItem "南京"
Combo2.AddItem "徐州"
Case 1
Combo2.AddItem "合肥"
Combo2.AddItem "滁州"
End Select
Combo2.ListIndex = 0
End Sub

Private Sub Form_Load()
Combo1.AddItem "江蘇"
Combo1.AddItem "安徽"
Combo1.ListIndex = 0
End Sub