Ayuda con listbox

[oso_cat]

Buenas,

no se si me estoy volviendo loco o que pasa, pero necesito un poco de ayuda porque estoy un poco ofuscado con el tema...

os cuento:

tengo un formulario (en vb6) con 2 listbox y quiero hacer los típicos botones de pasar un elemento de uno a otro, pasar todos los elementos, quitar un elemento segundo y quitar todos los elementos del segundo ( >, >>, <, << )

Pues bien, yo para agregar un elemento del primero al segundo utilizo:

List2.AddItem (List1.Text)

Para agregar todos los elementos de la lista1 a la lista2, pensaba utilizar un bucle del tipo:

For i = 0 To List2.SelCount - 1
List2.AddItem (List1.List(i).Text)
Next

Pero no me funciona y no consigo encontrar la propiedad que indique el elemento de la lista que quiero pasar...

Alguna sugerencia??

[pkj]

El contenido de un elemento del listbox se obtiene con List1.List(númerodeelemento)
El elemento seleccionado en un listbox está marcado por la propiedad .ListIndex
Para conseguir el contenido del elemento marcado sería:
Valor = List1.List(List1.ListIndex)

Para copiar los elementos de un list a otro sería:
For F=0 to List1.Listcount -1
List2.AddItem List1.List(F)
Next F

Si solo quieres copiar los elementos seleccionados:
For F=0 to List1.Listcount -1
if List1.Selected(F)=True Then List2.AddItem List1.List(F)
Next F

Que se dé bien.

[David]

Para eso debes recorrer todos los elementos de la lista y ver cuáles están seleccionados.

Algo como esto:

Código vb:

Dim I As Integer
For I = 0 To List1.ListCount - 1
    If List1.Selected(I) Then
        List2.AddItem List1.List(I)
    End If
Next I
 

[oso_cat]

perfecto!

muchas gracias!!