COMBO BOX [visual basic]

aq ade problem ni pasl combo box kat VB6...
MASALHNYER CMNI...:-
aq nk sist ni bila pengguna da select item dlm main combo box,bru combo box yg len ley pilih...

ni contoh screenshot:-



Skrg ni cmni.korg tgk kat combo box yg paling atas 2…
2 kire main combo box la…
Skrg ni 5 combo box yg kt bwh NAMA BARANGAN tu aq visible=false (INVISIBLE)
Aku nk wt bila dia pilih je salah 1 isi kt dalam main combo box, combo box yg kt bawah 2
visible=true...

Contohnyer aq pilih MUET kat main combo box, then combo box muet je yg akan keluar....
Cmne yer ???
JELAS X EKH??

let say combo box "jenis barang" tu nama dia mainCombo...lepas ko letak item kat "List" property dia, ko boleh compare (guna "if..else" atau "select case")mainCombo.text dengan apa yang ko nak....

ataupun, ko letak item kat "List" property dia dan jugak integer(aku assume ko start dengan 0) kat ItemData dia...so kat sub mainCombo_Click() tu ko cuma perlu check ListIndex dia...cth:

Code:

Private Sub mainCombo_Click()
Select Case mainCombo.ListIndex
Case 0
    muetCombo.Visible = true
Case 1
    ptkCombo.Visible = true
end select
end sub

tapi aku rasa kurang elok buat combo boxes tu invisible...sebab akan cacatkan ko punya form layout...
lebih elok disable combox boxes yang tak perlu...
tapi aku lebih prefer kalau cuma ada 2 combobox dan ko isi item2 dalam combobox ke-2 dinamically...cth:

Code:

Private Sub mainCombo_Click()
Select Case mainCombo.ListIndex
Case 0
    subCombo.AddItem "muet1"
    subCombo.AddItem "muet2"
    subCombo.AddItem "muet3"
case 1
    subCombo.AddItem "ptk1"
    subCombo.ItemData(subCombo.NewIndex) = 10 'in case ko nak tukar itemdata dia(utk associate dgn database cthnya)..
                                            'kalu x, dia akan start dgn 0
    subCombo.AddItem "ptk2"
    subCombo.ItemData(subCombo.NewIndex) = 20
end select
end sub

betik wrote:let say combo box "jenis barang" tu nama dia mainCombo...lepas ko letak item kat "List" property dia, ko boleh compare (guna "if..else" atau "select case")mainCombo.text dengan apa yang ko nak....

ataupun, ko letak item kat "List" property dia dan jugak integer(aku assume ko start dengan 0) kat ItemData dia...so kat sub mainCombo_Click() tu ko cuma perlu check ListIndex dia...

tapi aku lebih prefer kalau cuma ada 2 combobox dan ko isi item2 dalam combobox ke-2 dinamically... subCombo.AddItem "ptk1"

sbenarnyer yg kat ats juz sample...
tp sist yg sebenar2nyer item kat mainComboBox lg bnyk...
cm kat ats ni ade 5 jek....
kat sist yg lg satu ni ade dalm belas2....
Erm,xbape phm la yg ko kate 'letak item kat "List" property dia dan jugak integer'??
kompius...
pas 2 yg ni lak cmne??
'kalau cuma ada 2 combobox dan ko isi item2 dalam combobox ke-2 dinamically... subCombo.AddItem "ptk1"'
sory la,bab combo box ni memg xbpe nk tw sgt...
huhuhu

putri wrote:sbenarnyer yg kat ats juz sample...
tp sist yg sebenar2nyer item kat mainComboBox lg bnyk...
cm kat ats ni ade 5 jek....
kat sist yg lg satu ni ade dalm belas2....
Erm,xbape phm la yg ko kate 'letak item kat "List" property dia dan jugak integer'??

macam mana ko isi ietm2 kat combo box tu?...ko hardcode ke dynamically isi?...
kalu hardcoded...kan ke ada "List" kat tepi property box utk combo box tu?...pastu ada ItemData...

kompius...
pas 2 yg ni lak cmne??
'kalau cuma ada 2 combobox dan ko isi item2 dalam combobox ke-2 dinamically... subCombo.AddItem "ptk1"'
sory la,bab combo box ni memg xbpe nk tw sgt...
huhuhu

cuma ada 2 combobox...combo box ke-2 tu item2 dia ko isi dinamically bergantung kepada pilihan user kat combox pertama...so tak payah la nak invisiblekan combo box yang banyak2 tu...