Visual Basic Foro

Programación => Visual Basic 6 => Mensaje iniciado por: FrankLizardo en Octubre 29, 2010, 04:34:02 pm

Título: como llenar ucListView
Publicado por: FrankLizardo en Octubre 29, 2010, 04:34:02 pm

hola ayuda por favor no pude llenar el ucListView.ctl con item y subitem por favor alguien q tenga compartirlo

Título: Re:como llenar ucListView
Publicado por: xkiz ™ en Octubre 29, 2010, 04:54:55 pm

¿cual estas usando?
puede que haya varios, el que yo conozco de psc viene con un ejemplo de uso, pero....

Título: Re:como llenar ucListView
Publicado por: FrankLizardo en Octubre 29, 2010, 05:21:20 pm

toy usando del explorador remoto que esta en la pagina principal

Título: Re:como llenar ucListView
Publicado por: LeandroA en Octubre 29, 2010, 09:57:18 pm

Código: (Vb) [Seleccionar]

Private Sub Form_Load()
    Dim i As Long
    Dim lCount As Long

    With ucListView1
   
        Call .Initialize
       
        '.InitializeImageListSmall 16, 16
        '.ImageListSmall_AddBitmap LoadResPicture(4, vbResBitmap), vbMagenta
       
        .ViewMode = vmDetails
        .GridLines = True
        .FullRowSelect = True

        Call .ColumnAdd(0, "Nombre", 100)
        Call .ColumnAdd(1, "Apellido", 100)
        Call .ColumnAdd(2, "Edad", 50)
       
        'For i = 0 To 10
                                         'el -1 es el icono si lo utilizas le pones el index (empieza desde 0)
        '    .ItemAdd i, "Item" & i, 0, -1, 0
        '    .SubItemText(i, 1) = "Subitem 1"
        '    .SubItemText(i, 2) = "Subitem 2"
        'Next
        lCount = .Count
        .ItemAdd lCount, "Leandro", 0, -1, 0
        .SubItemText(lCount, 1) = "Ascierto"
        .SubItemText(lCount, 2) = "34 :("
       
       
        lCount = lCount + 1
        .ItemAdd lCount, "Juan", 0, -1, 0
        .SubItemText(lCount, 1) = "Perez"
        .SubItemText(lCount, 2) = "54"

    End With
End Sub