Visual Basic 6 - indice combo per array elementi

Forum - Visual Basic 6 - indice combo per array elementi

mash_mash (Normal User)
Expert

Messaggi: 230
Iscritto: 25/07/2007

Postato alle 8:42
Venerdì, 02/10/2009

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 .

theprogrammer (Normal User)
Guru^2

Messaggi: 2509
Iscritto: 28/01/2009

Postato alle 9:13
Venerdì, 02/10/2009

Usa il ListIndex della Combo1 per accedere alla Combo2 ...

mash_mash (Normal User)
Expert

Messaggi: 230
Iscritto: 25/07/2007

Postato alle 10:35
Venerdì, 02/10/2009

'
Grazie , sbagliavo perchè scrivevo
Combo2.ListIndex = Combo1.ListIndex ' ED INFATTI MI DAVA ERRORE

Codice esatto :
Combo2.ListIndex = Combo1(index).ListIndex

Per le immagini mi sapete aiutare.

theprogrammer (Normal User)
Guru^2

Messaggi: 2509
Iscritto: 28/01/2009

Postato alle 12:12
Venerdì, 02/10/2009

Testo quotato

Postato originariamente da mash_mash:

Per le immagini mi sapete aiutare.

Devi spiegare il problema ...

mash_mash (Normal User)
Expert

Messaggi: 230
Iscritto: 25/07/2007

Postato alle 13:36
Venerdì, 02/10/2009

Praticamente vorrei fare delle combo con immagini che vengono selezionate nella stessa maniera in cui vengono selezionati gli elementi della combo2.
So che esiste il comando listimage , ma non l'ho mai usato.

N.B. Le immagini sono gia' caricate in una picture

theprogrammer (Normal User)
Guru^2

Messaggi: 2509
Iscritto: 28/01/2009

Postato alle 14:23
Venerdì, 02/10/2009

Ti conviene usare una picturebox e una combo.

Nella combo inserisci i nomi e i percorsi delle immagini (che devono stare su disco) e nella picture inserisci l'immagine che selezioni dalla combo.

mash_mash (Normal User)
Expert

Messaggi: 230
Iscritto: 25/07/2007

Postato alle 14:56
Venerdì, 02/10/2009

ok ! Ma solo per sicurezza : devo comunque usare lo stesso metodo elencato prima vero ?
grazie.

theprogrammer (Normal User)
Guru^2

Messaggi: 2509
Iscritto: 28/01/2009

Postato alle 16:13
Venerdì, 02/10/2009

Quale metodo?

mash_mash (Normal User)
Expert

Messaggi: 230
Iscritto: 25/07/2007

Postato alle 16:20
Venerdì, 02/10/2009

pardon , con metodo in questo caso intendevo lo stesso sistema di interagire tra la combo1 e la combo 2.
A parte questo , se invece di caricare una combo (nel mio caso la combo2) , memorizzo gli elementi in un array , come mi devo comportare per avere lo stesso risultato.
es.

Select case 0
dim marche() as string
marche = array ("OPEL","FIAT","CITROEN")
...
...
...
...
textbox1.text = ..............

Non riesco a farlo girare