Imprimir Página - De textbox a listview

Título: De textbox a listview
Publicado por: mariana_87 en 24 Marzo 2009, 16:31 pm

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

Título: Re: De textbox a listview
Publicado por: Karcrack en 24 Marzo 2009, 17:08 pm

Código

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

Código

    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

Título: Re: De textbox a listview
Publicado por: seba123neo en 24 Marzo 2009, 18:09 pm

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

Código

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.

Título: Re: De textbox a listview
Publicado por: mariana_87 en 25 Marzo 2009, 19:56 pm

muchas gracias a los dos

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: mariana_87 en 24 Marzo 2009, 16:31 pm