作者LinLeopold (李奥)
看板Visual_Basic
标题Re: [VB6 ] 请问关於判断ComboBox的选取...
时间Sun May 14 11:58:08 2006
to fumizuki 前辈
昨晚我try了一夜 换了方式写
-----------------------------------------
Private Sub Combo2_Click()
Combo3.ListIndex = -1
If Combo2.ListIndex <> -1 Then
If Combo2.ListIndex = 0 Then
Combo3.List(0) = "基隆市 "
Combo3.List(1) = "台北市 "
Combo3.List(2) = "台北县 "
Combo3.List(3) = "桃园县 "
Combo3.List(4) = "新竹县 "
Combo3.List(5) = "苗栗县 "
Combo3.List(6) = "台中市 "
Combo3.List(7) = "台中县 "
Combo3.List(8) = "彰化县 "
Combo3.List(9) = "南投县 "
Combo3.List(10) = "云林县 "
Combo3.List(11) = "嘉义市 "
Combo3.List(12) = "嘉义县 "
Combo3.List(13) = "台南市 "
Combo3.List(14) = "台南县 "
Combo3.List(15) = "高雄市 "
Combo3.List(16) = "高雄县 "
Combo3.List(17) = "屏东县 "
Combo3.List(18) = "台东县 "
Combo3.List(19) = "花莲县 "
Combo3.List(20) = "宜兰县 "
Combo3.List(21) = "澎湖县 "
Combo3.List(22) = "金门县 "
Combo3.List(23) = "连江县 "
Combo3.List(24) = "南海诸岛 "
Combo3.List(25) = "钓鱼台列屿 "
ElseIf Combo2.ListIndex = 1 Then
Combo3.List(0) = "Yahoo信箱 "
Combo3.List(1) = "Hotmail信箱 "
Combo3.List(2) = "Gmail信箱 "
Combo3.List(3) = "智邦生活馆URL信箱 "
Combo3.List(4) = "PChome信箱 "
Combo3.List(5) = "Hinet信箱 "
Combo3.List(6) = "Xuite信箱 "
End If
End If
End Sub
---------------------------------------------------------------------------
Private Sub Command1_Click()
If Combo2.ListIndex <> -1 Then
address = Combo2.List(Combo2.ListIndex) + Combo3.List(Combo3.ListIndex)
Else
MsgBox "您尚未选择!!"
End If
End Sub
---------------------------------------------------------------------------
这个方法倒是可以成功的show出 combo2 跟 combo3 所选择的东西
but 有个小问题...
(前提 combo2的两个选项 "通讯地址" 跟 "电子信箱"
我已经事先写在combo2的list属性里)
当我选择 Combo2.ListIndex = 0
也就是combo2的 "通讯地址"
combo3的选项它就会跑出
Combo3.List(0) = "基隆市 "
... 啪啦 啪啦 一直到 Combo3.List(25) = "钓鱼台列屿 "
此时我又把combo2的选项换到 "电子信箱"
combo3的选项 有 Combo3.List(0) = "Yahoo信箱 "
.... 一直到 Combo3.List(6) = "Xuite信箱 "
照理说 应该这样子就没了 没想到 它下面竟还接着
Combo3.List(7) = "台中县 "....
一直到 Combo3.List(25) = "钓鱼台列屿 "
但如果我一开始就把combo2的选项选择 "电子信箱"
combo3的选项就很乾净 只有 Combo3.List(0) ~ Combo3.List(6) 而已
是不是我应该再多写一个清除的动作!?
但我不知道应该写在哪里 and 指令应该怎麽写...
还有一个问题是 如果我都没选 它会跳出"您尚未选择"
但之後 我想让它回到combo的选项
否则程式无法继续 请问我该怎麽写呢!?
盼您给我指导一下 谢谢。 ^^"
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 220.141.102.185
1F：→ unget:mail给你我的作法..:)加油 05/14 17:30
2F：→ LinLeopold:成功了!!!!! 谢谢前辈的指导... 感恩不尽!! ^^ 05/14 19:07