De textbox a listview

[mariana_87]

hola alguien seria tan amable de decirme como pasar todo el contenido de un textbox multiline a un listview?

[Karcrack]

1

Código (vb) [Seleccionar] Expandir

    Dim vItem       As Variant
   
    For Each vItem In Split(Text1.Text, vbCrLf)
        List1.AddItem vItem
    Next vItem
2

Código (vb) [Seleccionar] Expandir

    Dim sItems()        As String
    Dim i               As Long
   
    sItems = Split(Text1.Text, vbCrLf)
    For i = LBound(sItems) To UBound(sItems)
        List1.AddItem sItems(i)
    Next i

[seba123neo]

Hola, a un listview seria asi  ...bueno pero es casi lo mismo que te puso Karcrack...

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Sub Command1_Click()
    Dim vDatos() As String
    Dim Item As ListItem
    Dim i As Long
   
    vDatos = Split(Text1.Text, vbNewLine)
   
    For i = LBound(vDatos) To UBound(vDatos)
        Set Item = ListView1.ListItems.Add(, , vDatos(i))
    Next
End Sub

Private Sub Form_Load()
    Text1.Text = "Item1" & vbNewLine & "Item 2" & vbNewLine & "Item 3"
    With ListView1
         .ColumnHeaders.Add , , "Datos Del TextBox"
        .View = lvwReport
    End With
End Sub

saludos.

[mariana_87]

muchas gracias a los dos