none
Como pasar datos de un listbox a texbox RRS feed

Respuestas

  • 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





    martes, 27 de marzo de 2018 21:08
  • "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.


    martes, 27 de marzo de 2018 21:59
    Moderador
  • 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

    martes, 27 de marzo de 2018 22:07

Todas las respuestas

  • 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





    martes, 27 de marzo de 2018 21:08
  • "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.


    martes, 27 de marzo de 2018 21:59
    Moderador
  • 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

    martes, 27 de marzo de 2018 22:07