Autor
|
Tema: Problema con Listview (Leído 2,583 veces)
|
Kizar
Desconectado
Mensajes: 1.325
kizar_net
|
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
|
|
|
En línea
|
|
|
|
Slasher-K
Desconectado
Mensajes: 1.477
|
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.
|
|
|
En línea
|
A la reina de las profundidades que cuida los pasos de una sombra en la noche :*
|
|
|
Kizar
Desconectado
Mensajes: 1.325
kizar_net
|
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???
|
|
|
En línea
|
|
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Problema rellenando ListView
.NET (C#, VB.NET, ASP)
|
quiqueroal
|
2
|
3,543
|
3 Mayo 2011, 22:15 pm
por quiqueroal
|
|
|
Problema con listview
Programación Visual Basic
|
hackertotal22
|
2
|
3,546
|
13 Julio 2011, 10:25 am
por hackertotal22
|
|
|
(SOLUCIONADO) Problema con Listview
.NET (C#, VB.NET, ASP)
|
Eleкtro
|
3
|
3,053
|
6 Agosto 2013, 20:53 pm
por Eleкtro
|
|
|
Listview header modificado en listview vbnet
.NET (C#, VB.NET, ASP)
|
Juan Sanchez
|
3
|
7,963
|
30 Enero 2016, 06:04 am
por Eleкtro
|
|
|
Extraño problema y conflicto con los ListView
Programación Visual Basic
|
RiasChan
|
1
|
2,473
|
15 Junio 2019, 00:36 am
por Serapis
|
|