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