Aggiungere elementi da un combobox ad una listbox

Salve a tutti,leggendo questa guida i controlli ListBox e ComboBox | Guida Visual Basic | Programmazione.HTML.itho ritenuto questo esempio abbastanza utile,il codice funziona perfettamente però ora volevo sapere se è possibile usare lo stesso procedimento pero usando un form dove al interno ci dovrà essere 4 combobox e 1 listbox

Ciao,
...ma tu di preciso cosa devi fare

IMHO, il primo e fondamentale passo da fare
è descrivere in dettaglio e senza ambiguità quali sono i tuoi obiettivi
*senza pensare (per ora) a come ottenerli*

HTH

ciao,voglio che quando clicco su una voce di un combobox venga aggiunta nella listbox e fin qui ci sono riuscito.
Ma se al posto di 1 combobox ne mettessi 4,come dovrei modificare il codice?

Non occorre alcuna modifica.
Magari se mostri il codice che usi, capiamo meglio.

ecco il codice [QUOTE]Private Sub Form_Load()
Combo1.AddItem "Scheda madre"
Combo1.AddItem "Processore"
Combo1.AddItem "Monitor"
Combo1.AddItem "Videocamera"
Combo1.AddItem "Stampante"
Combo1.AddItem "Scanner"
'Seleziona il primo elemento.
Combo1.ListIndex = 0
End Sub

Private Sub Command1_Click()
'Inserisce l'elemento selezionato nel ListBox.
List1.AddItem Combo1.Text
'Rimuove l'elemento dal ComboBox.
Combo1.RemoveItem Combo1.ListIndex
If Combo1.ListCount > 0 Then
'Se ci sono ancora elementi, seleziona il primo elemento del ComboBox.
Combo1.ListIndex = 0
Else
'Altrimenti, disattiva il pulsante "Inserisci".
Command1.Enabled = False
End If
End Sub

Private Sub Command2_Click()
'Innanzi tutto, controlla se è stato selezionato un elemento nel ListBox.
If List1.ListIndex >= 0 Then
'Reinserisce la voce nel ComboBox.
Combo1.AddItem List1.Text
'Rimuove l'elemento dal ListBox.
List1.RemoveItem List1.ListIndex
'Riattiva il pulsante "Inserisci".
Command1.Enabled = true
Combo1.ListIndex = 0
End If
End Sub[QUOTE]

Questi sono due commonbutton,con il primo aggiungo e con il secondo rimuovo

se ho capito bene

metti una text1 'con il quale selezioni quella che vuoi ripristinare
tipo se sulla text1 scrivi 1 allora metti il file selezionato dalla lista nella combo1
e cosi via

ma se vuoi che quelli usciti dalla
combo1 combo2 combo3 combo4
ritornano in essa dopo che sono stati mischiati nella lista ti serve un indice
combo1 indice 1 quando inserisci nella lista gli metti pure l'indice
cosi puoi rimettere il numero sulla lista giusta

list1.text= 1telecamera 
if mid(list1.text,1,1) = "1" then combo1.additem list1.text
if mid(list1.text,1,1) = "2" then combo2.additem list1.text

il metodo che voglio utilizzare è quello indicato nel link a differenza che nel mio progetto devo inserire 4 combobox

Ciao jolly

viste le evidenti lacune credo che fornirti codice pronto sia l'ultima cosa da fare;
...meglio se ci arrivi da solo con qualche suggerimento;

Però, come ti ho già detto, la prima cosa da fare è avere le idee chiare
su cosa deve fare e come deve funzionare la tua applicazione;
....e mi sembra che già partiamo male perchè prima dici

Originariamente inviato da jolly

ciao,voglio che quando clicco su una voce di un combobox venga aggiunta nella listbox e fin qui ci sono riuscito.
Ma se al posto di 1 combobox ne mettessi 4,come dovrei modificare il codice?

e poi invece

Originariamente inviato da jolly

....
il metodo che voglio utilizzare è quello indicato nel link
(ovvero usando 1 command button per inserire ed uno per rimuovere)

Decidi quale delle due e poi raccontaci *per filo e per segno* come vuoi
realizzare l'interfaccia grafica e come deve reagire agli eventi scatenati dall'utente
(cioè cosa deve succedere quando clicca un combobox o un command)
così chiarirai le idee non solo a noi ma soprattutto a te stesso

HTH

questo per il momento è lo schema,tanto l'estetica non mi importa
Yfrog Image : yfrog.com/7f94773019p

Originariamente inviato da jolly

questo per il momento è lo schema,tanto l'estetica non mi importa
Yfrog Image : yfrog.com/7f94773019p

...ci manca sempre la descrizione *dettagliata* di come vuoi che funzioni.

Tieni presente che i computer sono macchine veloci ma per niente intelligenti
per cui se non gli dici (tramite un programma) *per filo e per segno*
cosa devono fare non potranno leggerti nella mente,
e se gli dici di fare una stupidaggine non avranno alcun problema ad obbedirti.