作者MAGICXX (逢甲阿法)
看板Visual_Basic
標題Re: [VB6 ] ComboBox的用法..
時間Tue Apr 19 15:45:37 2011
※ 引述《ClubT (勇氣是實現夢想的魔法)》之銘言：
: ※ 引述《foliyo (生命的過客)》之銘言：
: : 我拉兩個combobox來選擇
: : 首先combo1的內容 我已經直接打在form裡面
: : 所以一開始就會有東西
: : 但是我的combo2想要依照combo1下去判斷而出現我的結果
: : 例如: combo1現在有 a b c d e 五個選項
: : 我選擇 a
: : combo2 會馬上出現 11 22 33 三個選項給我選擇
: : 選擇 b
: : 會出現 44 55 66 給我選擇
: : 我有爬文找到相關的
: : 但是好像怎麼打 combo2 就都是空白的....
: : 還是要再拉其他物件?
: 如果你會出現的東西是固定的
:
: Select Case Combo1.ListIndex
: Case 0
: Combo2.Clear
: Combo2.AddItem "aa"
: Combo2.AddItem "bb"
: Combo2.AddItem "cc"
: Case 1
: Combo2.Clear
: Combo2.AddItem "dd"
: Combo2.AddItem "ee"
: Combo2.AddItem "ff"
: End Select
:
: 大概就這樣囉
: 簡單說就是先清掉 Combo2 再新增你要的資料
Private Sub Form_Load()
Combo1.AddItem "0公分"
Combo1.ItemData(Combo1.NewIndex) = 99
Combo1.AddItem "10公分"
Combo1.ItemData(Combo1.NewIndex) = 71
Combo1.AddItem "20公分"
Combo1.ItemData(Combo1.NewIndex) = 65
Select Case Combo1.ListIndex
Case 0
Combo2.Clear
Combo2.AddItem "aa"
Combo2.AddItem "bb"
Combo2.AddItem "cc"
Case 1
Combo2.Clear
Combo2.AddItem "dd"
Combo2.AddItem "ee"
Combo2.AddItem "ff"
Case 2
Combo2.Clear
Combo2.AddItem "GG"
Combo2.AddItem "HH"
Combo2.AddItem "ii"
End Select
End Sub
抱歉拉這麼久的文章出來問
不過我剛好有這方面的問題@@
因為我把這整段放在Private Sub Form_Load()下面是沒有效果的...
我的COMBOBOX2裡面還是白白的...什麼也沒有
我曾經有試過是不是上面的CASE選錯了....(我以為要放值)
結果也是沒有反應
我放在Private Sub Combo2_Click()底下 更沒有反應...
請問是哪邊錯了勒...?
我該放在哪邊?
CASE 0 1 2這些要怎麼定義!?
--
#1CYsr0re (Keelung)
→ todo70192:因為引擎的聲音太大聲了 尤其是在橋下 回音更大聲09/11 20:11
→ todo70192:害我沒辦法專心講電話 聽不清楚09/11 20:12
→ sinyuan99:所以要怪機車騎士嗎?_?09/11 20:24
→ todo70192:沒錯 機車騎太兇 引擎聲音太大 沒考慮到路邊講電話聽不09/11 20:25
→ todo70192:清楚09/11 20:25
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.121.146.41
→ disc1002:放在combox1_change底下 印象中應該是@@ 04/19 17:09
→ MAGICXX:是放在COMBOX1嗎?還是放在COMBOX2? 04/19 17:32
推 JingTeng:select那段要放在combox1，因為你是依據combox1內容改變 04/19 17:53
→ MAGICXX:還是不行喔 大大一提出來 我馬上就試了Orz 04/19 18:00
→ MAGICXX:也不是combox2_change....qq 04/19 18:01
偷補字...XD
※ 編輯: MAGICXX 來自: 140.121.146.41 (04/19 18:02)
推 mathlinka:ComboBox1_Click 04/19 19:44
→ MAGICXX:感謝樓上這位大大 可以了@_@!! 04/19 20:05