Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: JBB en Mayo 14, 2015, 05:36:18 pm
-
Empece utilizando un ListView cargando los items con un modulo de clase
En el form puse esto:
'Variable para la clase
Private WithEvents obj As clsListFile
Private Sub Form_Load()
Set obj = New clsListFile ' Nueva instancia de la clase
obj.ImageList1 = ImageList1(0) ' Se le asocia 2 imagelist para los iconos
obj.ImageList2 = ImageList1(1)
obj.ListView = ListView ' El ListView
obj.Listar "C:\WINDOWS" ' Carga la carpeta windows
End Sub
Luego puse otro ListView y al querer utilizar el array de ListView(0), el modulo no lo admite.
De manera que no pude utilizar el array y lo solucione creando otra variable: obj2
'Variable para la clase
Private WithEvents obj2 As clsListFile
Private Sub Form_Load()
Set obj = New clsListFile ' Nueva instancia de la clase
obj.ImageList1 = ImageList1(0) ' Se le asocia 2 imagelist para los iconos
obj.ImageList2 = ImageList1(1)
obj.ListView = ListView ' El ListView
obj.Listar "C:\WINDOWS" ' Carga la carpeta windows
Set obj2 = New clsListFile ' Nueva instancia de la clase
obj2.ImageList1 = ImageList1(0) ' Se le asocia 2 imagelist para los iconos
obj2.ImageList2 = ImageList1(1)
obj2.ListView = ListView2 ' El ListView2
obj2.Listar "C:\WINDOWS\system32" ' Carga la carpeta system32
End Sub
De esta forma puedo cargar los 2 ListView pero hay demasiadas funciones en los ListView y me gustaría utilizar el Array.
ItemClick, DblClick, KeyDown, MouseUp, OLEStartDrag, OLEDragOver, OLEDragDrop, AfterLabelEdit, BeforeLabelEdit, ColumnClick,
Alguna sugerencia.
Gracias