[vb6] Da combo a lista

[ciro78]

salve a tutti.seguendo le indicazioni della guida del sito volevo trasportare degli elemnti selezionati da una cmbobox in unalist box e viceversa.

il codice è il seguente

Private Sub Command1_Click()
List1.AddItem Combo1.Text
Combo1.RemoveItem Text


End Sub

Private Sub Command2_Click()
Combo1.AddItem List1.Text
List1.RemoveItem Text

End Sub

Private Sub Form_Load()
Combo1.AddItem "Ciro"
Combo1.AddItem "Salvatore"
Combo1.AddItem "Anna"
End Sub

il problema invece:

se seleziono un elemento dal combobox me lo porta tranquillamente nella list box
ma non scopmare mi scomprae quello di sotto
l'errore non si verifica se seleziono nmel vuoto prima di premere il pulsante.Ke succede?

[Gugu]

A dir la verità non sei molto chiaro nella scrittura...

ma non scopmare mi scomprae quello di sotto

Vuoi dire che quando selezioni nel tuo esempio "salvatore", ti elimina dal combobox "ciro"??

l'errore non si verifica se seleziono nmel vuoto prima di premere il pulsante.Ke succede?

Qui? che vuoi dire?

[ciro78]

si scusa in effetti ho scritto il 3d in due secondi e, in pù la tastiera rompe....

allora il problema è prorpio quello.
se seleziono ciro lo copia nella list box ma,scompare salvatore.se clicco in un punto diverso del form prima di cliccare sul pulsante che svolge l'azione,la cosa non si verifica

ciao

[Gugu]

Ma dimmi un po..
cosa significa "Text" scritto così????

Prova questo:

Private Sub Command1_Click()
List1.AddItem Combo1.Text
Combo1.RemoveItem Combo1.ListIndex


End Sub

Private Sub Command2_Click()
Combo1.AddItem List1.Text
List1.RemoveItem List1.ListIndex

End Sub

Private Sub Form_Load()
Combo1.AddItem "Ciro"
Combo1.AddItem "Salvatore"
Combo1.AddItem "Anna"
End Sub

Vedrai che funzionerà meglio!

[ciro78]

grazie funziona un pochino meglio

[xegallo]

Ciro però fare un titolo decente una volta ti costa poi tanto?