有关VB combox

来源：百度知道 编辑：UC知道 时间：2024/06/07 03:00:03
比如，第一个combox下拉菜单中有“北京、上海、天津……”用户选择了一个地域后，另一个combox会显示出与选择的地域相匹配的地区。比如选了“上海”，第二个combox下拉菜单就会有“杨浦区，卢湾区，静安区……”。因为条目很多，不可能用Additem一个个加吧？怎么办？帮帮我这菜鸟啊~

方法有很多,有数据库,有文本文件
简单的话,可以用文本文件来做,一个即可:
文本文件中,可以这样存放:

上海市:杨浦区,卢湾区,静安区
北京市:名称1,名称2,名称3
天津市:名称1,名称2,名称3

自己将区域划分添加上去即可
代码中,这样来写
Dim AreaName() As String

Private Sub Combo1_Click()
Combo2.Clear
Dim A
A = Split(Split(AreaName(Combo1.ListIndex), ":")(1), ",")
For I = 0 To UBound(A)
Combo2.AddItem A(I)
Next
End Sub

Private Sub Form_Load()
Dim s As String, I As Integer
Open "C:\1.txt" For Input As #1
I = 0
Combo1.Clear
While Not EOF(1)
Line Input #1, s
If UBound(Split(s, ":")) > 0 Then
ReDim Preserve AreaName(I) As String
AreaName(I) = s
Combo1.AddItem Split(s, ":")(0)
I = I + 1
End If
Wend
Close #1
End Sub

容易，你把北京、天津、上海的区分别