02/10/09 6:42
mash_mash
ciao a tutti , ecco il codice che mi crea problemi :
'
'in una frame ho 3 un array di 3 combo
Private Sub Form_Load()
'
Combo1(0).AddItem "macchina tedesca" ' 0
Combo1(0).AddItem "macchina italiana" ' 1
Combo1(0).AddItem "macchina francese" ' 2
'
Combo1(1).AddItem "bicicletta da strasda" ' 0
Combo1(1).AddItem "bicicletta da corsa" ' 1
'
Combo1(2).AddItem "moto stradale" ' 0
Combo1(2).AddItem "moto naked" ' 1
Combo1(2).AddItem "moto scooter" ' 2
Combo1(2).AddItem "moto da pista" ' 3
'
Private Sub Combo1_Click(index As Integer)
varIndiceElemento = Combo1(index).ListIndex
'txtSceltaIndice.Text = varIndiceElemento
'
'inserisco in una text il nome dell'elemento scelto
txtNomeElemento = Combo1(index).Text
'
'adesso in base alla combo scelta carico un'altra combo
Select Case index
Case 0
Combo2.AddItem "OPEL"
Combo2.AddItem "FIAT"
Combo2.AddItem "CITROEN"
Case 1
Combo2.AddItem "LEGNANO"
Combo2.AddItem "GIMONDI"
Case 2
Combo2.AddItem "YAMAHA"
Combo2.AddItem "KAWASAKY"
Combo2.AddItem "SUZUKY"
Combo2.AddItem "HONDA"
End Select
'
E FINO A QUA TUTTO VA BENE ,
Quello che mi blocca e' che vorrei ottenere in base alla scelta da combo1() una text.box con l'elemento della combo2
es :
combo1 = macchina italiana
textbox = FIAT
'
combo1 = moto da pista
textbox = HONDA
'
Successivamente vorrei anche associare delle immagini , se avete delle dritte sono gradite .
'
'in una frame ho 3 un array di 3 combo
Private Sub Form_Load()
'
Combo1(0).AddItem "macchina tedesca" ' 0
Combo1(0).AddItem "macchina italiana" ' 1
Combo1(0).AddItem "macchina francese" ' 2
'
Combo1(1).AddItem "bicicletta da strasda" ' 0
Combo1(1).AddItem "bicicletta da corsa" ' 1
'
Combo1(2).AddItem "moto stradale" ' 0
Combo1(2).AddItem "moto naked" ' 1
Combo1(2).AddItem "moto scooter" ' 2
Combo1(2).AddItem "moto da pista" ' 3
'
Private Sub Combo1_Click(index As Integer)
varIndiceElemento = Combo1(index).ListIndex
'txtSceltaIndice.Text = varIndiceElemento
'
'inserisco in una text il nome dell'elemento scelto
txtNomeElemento = Combo1(index).Text
'
'adesso in base alla combo scelta carico un'altra combo
Select Case index
Case 0
Combo2.AddItem "OPEL"
Combo2.AddItem "FIAT"
Combo2.AddItem "CITROEN"
Case 1
Combo2.AddItem "LEGNANO"
Combo2.AddItem "GIMONDI"
Case 2
Combo2.AddItem "YAMAHA"
Combo2.AddItem "KAWASAKY"
Combo2.AddItem "SUZUKY"
Combo2.AddItem "HONDA"
End Select
'
E FINO A QUA TUTTO VA BENE ,
Quello che mi blocca e' che vorrei ottenere in base alla scelta da combo1() una text.box con l'elemento della combo2
es :
combo1 = macchina italiana
textbox = FIAT
'
combo1 = moto da pista
textbox = HONDA
'
Successivamente vorrei anche associare delle immagini , se avete delle dritte sono gradite .
aaa