Visual Basic Foro

Programación => Visual Basic 6 => Mensaje iniciado por: NsTeam en Junio 25, 2012, 11:35:18 pm

Título: De ListBox a TextBox + vbNewLine
Publicado por: NsTeam en Junio 25, 2012, 11:35:18 pm

¡Buenas!

Actualmente estoy desarrollando una aplicación para mi uso pero estoy algo confundido en esta parte, agradecería si pudiesen ayudarme.

Lo que trato de hacer es lo siguiente:

Tengo en un listbox lo siguiente:    1 2 3 4 5 6 7 8 9 10 11

Y quisiera pasarlo al Textbox de la siguiente manera:         12345         678910         11

Actualmente estoy usando un bucle para pasar todo el contenido del listbox al textbox.

Código: [Seleccionar]

  For i = 0 To List2.ListCount
   
    If Text4.Text = "" Then
    Text4.Text = List2.List(i)
    Else
    Text4.Text = Text4.Text & vbNewLine & List2.List(i)
    End If
 
    Next i

Tenía la idea de que el vbNewLine se use en un intervalo de 5 en 5 en el List2.ListCount, no sé si es buena idea o no.

Espero y alguien pueda ayudarme, desde ya muchas gracias. Tengan un buen día.

Título: Re:De ListBox a TextBox + vbNewLine
Publicado por: E N T E R en Junio 25, 2012, 11:50:27 pm

Justamente hoy pregunte mas o menos sobre esto y el amigo Yban me paso esto y creo que te va a servir tambien a vos.

Código: (VB) [Seleccionar]

Private Sub Command2_Click()
       
        Inicio = 1
        Final = 5
         
        TuCadena = Text1.Text
        TotalLineas = Int(Len(TuCadena) / Final) + 1
       
        For xi = 1 To TotalLineas
            xTexto = Trim(Mid(TuCadena, Inicio, Final))
            Inicio = (xi * Final) + 1
           
            List1.AddItem xTexto
           
        Next xi

End Sub


Título: Re:De ListBox a TextBox + vbNewLine
Publicado por: NsTeam en Junio 26, 2012, 12:04:42 am

Cita de: E N T E R en Junio 25, 2012, 11:50:27 pm

Justamente hoy pregunte mas o menos sobre esto y el amigo Yban me paso esto y creo que te va a servir tambien a vos.

Código: (VB) [Seleccionar]

Private Sub Command2_Click()
       
        Inicio = 1
        Final = 5
         
        TuCadena = Text1.Text
        TotalLineas = Int(Len(TuCadena) / Final) + 1
       
        For xi = 1 To TotalLineas
            xTexto = Trim(Mid(TuCadena, Inicio, Final))
            Inicio = (xi * Final) + 1
           
            List1.AddItem xTexto
           
        Next xi

End Sub


Gracias por tu pronta respuesta, ¿De qué manera podría usar el código que me mencionaste?

¡Saludos!

Título: Re:De ListBox a TextBox + vbNewLine
Publicado por: seba123neo en Junio 26, 2012, 12:57:19 am

es demasido simple, simplemente usando un contador.

Código: (vb) [Seleccionar]

Private Sub Form_Load()

    'Llenamos el ListBox con datos de prueba
    Dim i As Integer
    For i = 1 To 100
        List1.AddItem i
    Next i
   
    'Llenamos el Textbox
    Dim a As Integer
    For i = 0 To List1.ListCount
        If a = 5 Then
            a = 0
            Text1.Text = Text1.Text & i & vbNewLine
        Else
            Text1.Text = Text1.Text & i
        End If
        a = a + 1
    Next i
End Sub
saludos.

Título: Re:De ListBox a TextBox + vbNewLine
Publicado por: cobein en Junio 26, 2012, 08:28:27 am

Código: [Seleccionar]

Private Sub Form_Load()

    'Llenamos el ListBox con datos de prueba

    Dim i As Integer
    For i = 1 To 100
        List1.AddItem i
    Next i

    'Llenamos el Textbox
   
    For i = 1 To List1.ListCount
        Text1.Text = Text1.Text & List1.List(i - 1)
        If i Mod 5 = 0 Then Text1.Text = Text1.Text & vbNewLine
    Next i

End Sub

Título: Re:De ListBox a TextBox + vbNewLine
Publicado por: NsTeam en Junio 26, 2012, 11:19:51 am

Muchísimas gracias.