Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => Programación Visual Basic => Mensaje iniciado por: mariana_87 en 24 Marzo 2009, 16:31 PM

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
1
Código (vb) [Seleccionar]
    Dim vItem       As Variant
   
    For Each vItem In Split(Text1.Text, vbCrLf)
        List1.AddItem vItem
    Next vItem

2
Código (vb) [Seleccionar]
    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 (vb) [Seleccionar]
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