hola alguien seria tan amable de decirme como pasar todo el contenido de un textbox multiline a un listview?
1
Dim vItem As Variant
For Each vItem In Split(Text1.Text, vbCrLf)
List1.AddItem vItem
Next vItem
2
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
Hola, a un listview seria asi ;D...bueno pero es casi lo mismo que te puso Karcrack...
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.
muchas gracias a los dos