Re: [VB6 ] 請問關於判斷ComboBox的選取...

看板Visual_Basic作者LinLeopold (李奧)時間19年前 (2006/05/14 11:29)推噓0(0推 0噓 2→)

留言2則, 2人參與討論串4/5 (看更多)

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