Copia dati da ListBox a MSFlexGrid

[jjjjjj]

Amici Programmatori

Avrei un problemino

Avendo una listbox contenente dei nomi cliccando sul nome il nome deve apparire sulla 1° riga di una flex (e qui tutto a posto!)poi il codice cancella il nome selezionato dalla box

dopo cliccando su un altro nome il nome dovrebbe metterlo nella 2° riga della flex

MSFlexGrid3.TextMatrix(1, 1) = List3.Text
If List3.ListIndex >= 0 Then List3.RemoveItem List3.ListIndex

MSFlexGrid3.TextMatrix(1, 2) = List3.Text
If List3.ListIndex >= 0 Then List3.RemoveItem List3.ListIndex


ma mi ripete il nome

lo so che sembra una stupidaggine ma sono bloccato!


Ringrazio per una cortese risposta.

Saluti.

[yyzyyz]

non so se ho capito bene, prova cosi :

Dim icount As Integer
Private Sub Form_Load()
icount = 1
End Sub

Private Sub List1_Click()
MSFlexGrid1.TextMatrix(1, icount) = List1.Text
If List1.ListIndex >= 0 Then List1.RemoveItem List1.ListIndex
icount = icount + 1
MSFlexGrid1.Cols = MSFlexGrid1.Cols + 1
End Sub

[jjjjjj]

Niente da fare

Grazie lo stesso.

[yyzyyz]

Originariamente inviato da jjjjjj
Niente da fare

Grazie lo stesso.

cioè ? a me funziona benissimo, cmq forse nn funziona xchè nn hai popolato la
listbox.

Dim icount As Integer
Private Sub Form_Load()
icount = 1
List1.AddItem "aaa"
List1.AddItem "bbb"
List1.AddItem "ccc"
End Sub

Private Sub List1_Click()
MSFlexGrid1.TextMatrix(1, icount) = List1.Text
If List1.ListIndex >= 0 Then List1.RemoveItem List1.ListIndex
icount = icount + 1
MSFlexGrid1.Cols = MSFlexGrid1.Cols + 1
End Sub