Como pasar datos de un listbox a texbox

Question

Saludos como poder pasar todos los items de un listbox a un texbox multilinea ?

Answer 1

Un simple for o foreach

donde lo concatenes con salto de lineas.

---

Si necesitas ayuda sube tu avance de otro modo no puedo ayudarte , Suerte!

Public Class Form1

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

      For index As Integer = 0 To ListBox1.Items.Count - 1
            TextBox1.Text = TextBox1.Text & IIf(TextBox1.Text = "", "", System.Environment.NewLine) & ListBox1.Items(index)
        Next

        For Each x In ListBox1.Items
            TextBox2.Text = x & System.Environment.NewLine & TextBox2.Text
        Next

End Class

Answer 2

"Cael1020" preguntó:

> como poder pasar todos los items de un listbox a un texbox multilinea ?

Pues, por ejemplo, como indico a continuación:

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

        ' Declarar una matriz con el número de elementos existentes en el control ListBox.
        Dim items As String() = New String(ListBox1.Items.Count - 1) {}

        For n As Integer = 0 To ListBox1.Items.Count - 1
            ' Conforme recorremos el control ListBox añadimos
            ' los valores a los elementos de la matriz.
            items(n) = ListBox1.Items(n).ToString()
        Next

        ' Asignamos la matriz a la propiedad Lines del control TextBox
        TextBox1.Lines = items

    End Sub

Si no te gustan las matrices, puedes hacer lo mismo de la siguiente manera:

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

        ' Limpiar el control TextBox
        TextBox1.Clear()

        ' Número de elementos existentes en el control ListBox.
        Dim count As Integer = ListBox1.Items.Count - 1

        For n As Integer = 0 To count
            ' Conforme recorremos el control ListBox añadimos
            ' líneas al control TextBox.
            '
            TextBox1.AppendText(ListBox1.Items(n).ToString())
            If (n < count) Then
                ' Añadimos una nueva línea
                TextBox1.AppendText(Environment.NewLine)
            End If
        Next

     End Sub

En ambos casos, aquí tienes el resultado:

---

Enrique Martínez Montejo
[MS MVP - Visual Studio y Tecnologías de Desarrollo]

Nota informativa: La información contenida en este mensaje, así como el código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin garantías de ninguna clase, y no otorga derecho alguno. Usted asume cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o sugerido en el presente mensaje.

Si esta respuesta le ha resultado útil, recuerde marcarla como satisfactoria.

Si usas Visual Basic .NET y deseas ser productivo y feliz, se inteligente y activa la instrucción Option Strict.

Answer 3

Otra forma simple de escribir la asignación:

TextBox1.Lines = ListBox1.Items.Cast(Of String).ToArray()

* Presuponiendo que los datos se encuentran agregados al control Listbox