como llenar ucListView

[FrankLizardo]

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

[xkiz ™]

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

[FrankLizardo]

toy usando del explorador remoto que esta en la pagina principal

[LeandroA]

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