[VB.NET] ComboBox con collegamento ad una lista

[Newmicrocip]

salve ragazzi,
(premetto sono un novellino di questo linguaggio)!!!
Il problemino è il seguente:
In una Form ho creato una Combobox ed una listbox , nella Combo1 ho inserito una lista di nomi e vorrei che alla selezione di uno dei suddetti si visualizzi nel listbox una serie di altri nomi.
In poche parole nella Combo1 si scieglie : alberi, fiori, piante
Es. alla selezione di alberi dovrei far apparire nella listbox quercia,abete,ulivo

Spero di essere stato chiaro e di avere un vostro aiutino... grazie

[Zio Bill]

puoi usare IF...THEN oppure SELECT CASE

<SPAM cut by mod>

[Newmicrocip]

if.... then .... potresti essere più chiaro???
sai sono all'inizio
ed uso vb 6

[Zio Bill]

Credo che sia valido anche per Visual Basic 6

 if combo1.selecteditem="fiore" then
list1.add.item("quercia")
if combo1.selecteditem = "animale" then
list1.add.item("canguro")

Invece più veloce e comodo è questo:

 dim a as string = combo1.selecteditem
select case a
"fiori"
  list1..add.items("quercia")
"animali"
  list1.add.items("canguro")
end case

Spero di essere stato esauriente. Se hai degli altri dubbi, chiedi pure

[Newmicrocip]

grazie mille per il codice speriamo di riuscire ad inserirlo correttamente.....

[Newmicrocip]

Zio BILL aiutami tu.....

Allora il codice sembra non funzioni su VB 6 .....(sbaglio qualcosa???)
in quanto la proprietà :
Combo1.SelectedItem
non me la dà nell'oggetto Combo1




uhmmm eppure deve essere di una semplicità...

[gibra]

Originariamente inviato da Newmicrocip
Zio BILL aiutami tu.....

Allora il codice sembra non funzioni su VB 6 .....(sbaglio qualcosa???)
in quanto la proprietà :
Combo1.SelectedItem
non me la dà nell'oggetto Combo1

Non può funzionare, perchè vi sono alcune inesattezze.

Evidentemente Zio BILL ha scritto mooolto frettolosamente il codice.

Puoi usare la proprietà Text del ComboBox, che restituisce la stringa dell'elemento selezionato. Prova così, inserisci questo codice nell'evento Click del ComboBox:

If Combo1.Text="alberi" Then
    List1.AddItem "quercia"
ElseIf Combo1.Text = "fiori" Then
    List1.AddItem "rosa"
ElseIf Combo1.Text = "piante" Then
    List1.AddItem "azalea"
End If

Ciao

[Newmicrocip]

Grazie GIBRA
Non sò come ringraziarti .....
per il momento sembra tutto ok ...

Ora è possibile creare l'evento click della list1 che mi aggiuna un nome ad una casella di testo???

Mi spiego meglio...fino ad ora il programmino si presenta così:
1) nella combo1 appare - alberi , fiori , piante
2) (es. selzionando alberi) nella List1 appare - quercia , abete , ulivo
3) vorrei che ad una ulteriore selezione di un item list1 apparisse in una Textbox - es. il "prezzo" ,in un'altra "l'età" e sempre se possibile in una Picturebox l'immagine.

ho provato ad eseguire più o meno gli stessi passi per quanto riguarda l'evento click della combo1 , ma per l'evento click della list1 sembra non vada....
Di nuovo grazie a tutti

[gibra]

Mostra il codice (copia & incolla) che hai usato nell'evento Click del List1.

Ciao

P.S. Quando lo inserisci nel post, ricordati di 'racchiudere' il codice tra i tag Code, così il codice mantiene la stessa formattazione, ossia:
- selezioni il codice
- fai clic sul pulsante #
- confermi
Infine fai clic su Anteprima , prima di Invia Risposta, così vedi il codice

[Newmicrocip]

ok arrivato a questo punto :
per l'immagine tutto ok (anche se mi sembra di aver capito che vb6 accetti solo immagini .bmp e non jpeg) per il resto aiutami tu ...questo il codice

Private Sub List1_Click()
if List1.Text = "quercia" then
Picture1.picture = Loadpicture("c:\etc..")
Elseif TextBox..................
' Nella combobox c'è la proprietà AddItem
' Nella TextBox invece non me la dà
EndIf
End Sub


P.S.

Il codice non posso inserirlo come tu giustamente mi hai indicato perchè visual basic 6 è installato su un altro pc diverso da quello con cui ti stò scrivendo.
Grazie veramente della disponibilità che mi offrite ,sono qui con un manuale di vb6 che fà veramente pena....