Hola
Al mostrar datos en un listview me da un error que dice "Imagelist debe iniciarse antes de poder usarla"
Me podeis decir como se inicia.
Gracias.
Salu2
Primero tenés que establecer las propiedades SmallIcons, Icons a el control ImageList relacionado.
Set lvwList.Icons = imlMyImageList
Set lvwList.SmallIcons = imlMyImageList
Esto antes de agregar cualquier elemento.
Saludos.
Y donde tengo que poner eso?
cada vez que quiero añadir algo?
Case "REFRESH"
'Yo lo e puesto aqui y me da el error "Esta clase no admite automatizacion o no admite la interfaz esperada."
Set Form_archivos.ListView_files.SmallIcons = Form_archivos.ImageList
Form_archivos.ListView_files.ListItems.Clear
If Len(CurrentDirectory) > 3 Then If Mid$(recibido(1), 2, 1) <> ":" Then Form_archivos.ListView_files.ListItems.Add(, "Previous", "..").SmallIcon = 1
For I = 1 To (UBound(recibido) - 1)
If Left$(recibido(I), 1) = ChrW$(2) Then 'Directory
Form_archivos.ListView_files.ListItems.Add(, "Directory" & I, Right$(recibido(I), (Len(recibido(I)) - 1))).SmallIcon = 1
Else 'File
Select Case LCase$(Mid$(recibido(I), InStrRev(recibido(I), ".") + 1))
Case "htm", "html", "txt", "doc", "ini": IconNum = 8
Case "exe", "bat", "com", "scr": IconNum = 3
Case "sys", "dll", "vxd", "cpl": IconNum = 4
Case "ogg", "mp3", "midi", "wav", "ram", "rm", "mp2", "mpga", "mid": IconNum = 6
Case "divx", "mpeg", "mpg", "avi", "asf", "swf", "wmv", "wma", "asx", "mov", "mpe", "qt": IconNum = 7
Case "jpg", "gif", "png", "bmp", "pdf", "jpe", "jpeg": IconNum = 5
Case "rar", "zip", "cab", "iso", "ace", "r00": IconNum = 9
Case Else: IconNum = 2
End Select
Form_archivos.ListView_files.ListItems.Add(, "File" & I, recibido(I)).SmallIcon = IconNum
End If
Next I
If LenB(recibido(UBound(recibido))) <> 0 Then
tmpString = recibido(UBound(recibido))
Else
tmpString = vbNullString
End If
Ahi esta bien puesto???
No, eso se establece sólo una vez al cargarse el formulario, o lo podés hacer desde la página de propiedades del control.
Saludos.