Ayuda con listbox

[tuka_85]

Hola.

Queria saber como puedo pasar todos los items de un listbox a otro, mediante un botón.

Gracias

[thewalker]

hola que tal compañero, lo que pueedes hacer es recorrer el listbox donde tienes los elemento y dentro del ciclo foreach ir pasando uno por uno, aqui te dejo una forma de hacerlo espero te sirva la informacion..

foreach (string x in listBox1.Items)
{
listBox2.Items.Add(x);
}

una vez que pasaste todos los elementos del listbox uno al dos puedes eliminar los del uno con

listBox1.Items.Clear)();

[tuka_85]

al final me salió he hice esto..

Código:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Me.lstCopiado.Items.Clear()


        For Each item As Object In Me.LstCapitales.Items

            Me.lstCopiado.Items.Add(item)

        Next

        Me.LstCapitales.Items.Clear()


    End Sub

[tuka_85]

y como puedo hacer, para pasar uno a uno?

con elementos seleccionados con el control o el cursor.

Gracias!

[thewalker]

exactamente igual solo que cuando entre al primero le das un break al ciclo y borras el primer elemento en cada click masomenso asi

foreach(string x in listBox1.Items)
{
listBox2.Items.Add(x);
listBox1.Itemd.Remove(x);
break;
}

algo asi, estos codigos son en C# .net es el que manejo yoo
espero te sirva saludos

[tuka_85]

He puesto esto...

Código:

     Dim x As String

        For Each x As Object In Me.LstCapitales.Items

        Next

        lstCopiado.Items.Add(x)
        LstCapitales.Items.Remove(x)
        Stop

Pero me da error, que puede ser?

[thewalker]

estas en otro lenguaje, yo estoi en C# pero que te dice el error??
el stop para que es??? debes de poner un comando que corte el ciclo

[tuka_85]

en teoria en visual basic seria asi...

Código:

For Each x As String in listBox1.Items
listBox2.Items.Add(x)
listBox1.Itemd.Remove(x)
break
Next

[tuka_85]

ya lo corregi...

Es asi

Código:

 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        For Each x As String In LstCapitales.Items
            lstCopiado.Items.Add(x)
            LstCapitales.Items.Remove(x)
            Exit For
        Next
    End Sub

[thewalker]

deveria de funcionar, que te dice el error?

[tuka_85]

Con lo ultimo que te he puesto funcionar era el
break que en visual basic es Exit For

[thewalker]

ok , que bien ..

saludos