作者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