中易网

VB中comboBox的问题,

答案:2  悬赏:50  
解决时间 2021-02-20 21:15
我创建二个combobox
比如说combo1是游戏大区,combo2是游戏服务器
我选中combo1中的一个大区,在combo2中出现这个大区下的服务器名字,我该怎么弄,
最佳答案
给你举个例子吧,添加两个combobox,然后粘贴下面的代码就可以达到你的效果,如果有不明白的请百度HI我

Private list(0 To 2, 0 To 2) As String

Private Sub Combo1_Click()
If Combo1.ListIndex >= 0 Then
Combo2.Clear
Dim i As Integer
For i = 0 To 2
If list(Combo1.ListIndex, i) <> "" Then
Combo2.AddItem list(Combo1.ListIndex, i)
End If
Next
End If
End Sub

Private Sub Form_Load()
Dim s() As String
Dim i As Integer

s = Split("服务器1|服务器2|服务器3", "|")

For i = 0 To UBound(s)
list(0, i) = s(i)
Next i

s = Split("服务器4|服务器5|服务器6", "|")

For i = 0 To UBound(s)
list(1, i) = s(i)
Next i

s = Split("服务器7|服务器8|服务器9", "|")

For i = 0 To UBound(s)
list(2, i) = s(i)
Next i

Combo1.AddItem "大区1"
Combo1.AddItem "大区2"
Combo1.AddItem "大区3"
End Sub
全部回答
将combobox的style设置为2 设置combobox的list属性 在运行前设置好即可
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
电脑被我砸了,现在如果把这个电脑的硬盘拆下
多个S7-315的站如何与两台WINCC上位机通讯
怎么申请英国高中
怎么让房间变得持续的香?喷香水吗?
java项目所有的hibernate配置文件都出此问题
知道网吧的主机的IP怎么入侵
贵州省行政学院管理学院织金站地址有知道的么
2015湖南卫视跨年EXO出场的时候是几点钟?
手机软件 好输入键盘老是闪什么情况?
戊戌年庚申月癸巳日甲寅时日子怎样
大侠们魔方怎么加润滑油
千禧寿司怎么去啊,有知道地址的么
富士施乐305 安装了自动双面打印装置 怎么双
乾隆和康熙那会为什么称“康乾盛世”
有谁知道这张图片出自刀剑神域的哪一集吗?怎
推荐资讯
计算机二级OFFICE的题目,看不懂,求解释。IF
平乐古镇特色饭店
威海哪有玉石加工的地方
进制转换,十进制怎么转换为36进制
广丰县私立裕丰中学地址好找么,我有些事要过
急需5万做什么都可以
陕西文化产业投资控股(集团)公司在哪里啊,我
在手机的来电转接功能中,可以指定是某一个号
cad图中比例什么意思
工商,建行,邮局,北京,这些银行的银行卡最多能
BDRIP和BD原盘画质和音质的差距大吗?
这个图是什么手机软件做的
手机登qq时,显示手机磁盘不足,清理后重新登
刺客的套装怎么选啊?