Imprimir Página - [Solucionado] No carga el icono en el ListView.

Título: [Solucionado] No carga el icono en el ListView.
Publicado por: Snopk en 17 Enero 2010, 03:53 am

Buenas a todos.

Estoy cargando imágenes en un ListView desde un ImageList pero no carga. Enlazo el IL con el LV , coloco el Index del icono y todo pero solo sale un hueco donde deberia ir el icono pero en blanco :rolleyes: . Uso el LV del commocontrols 5.0 y el icono que trato cargar es de extensión ".ico" , 16x16 de 8 Bits.

Un saludos a todos. ;D

Título: Re: No carga el icono en el ListView.
Publicado por: seba123neo en 17 Enero 2010, 03:57 am

Control ListView (http://www.recursosvisualbasic.com.ar/htm/tutoriales/control-listview.htm)

Título: Re: No carga el icono en el ListView.
Publicado por: Snopk en 17 Enero 2010, 05:02 am

Si se usar el ListView, solo que nunca había intentado poner imágenes y lo estoy haciendo igual que el ejemplo de esa pagina.

(http://i49.tinypic.com/vzarl4.jpg)

Código:

Private Sub Form_Load()

Dim L As ListItem
Dim i As Integer

For i = 1 To 20
    Set L = lv.ListItems.Add(, , "caca" & i, 1)
Next

End Sub

No se que pasara, estuve buscando por el foro y encontré un usuario con la misma duda pero nunca le respondieron.

Gracias de antemano, seba123neo.

Título: Re: No carga el icono en el ListView.
Publicado por: seba123neo en 17 Enero 2010, 15:57 pm

el problema es que le estas poniendo que carge el icono con indice "1", pero eso es para cuando esta en otro modo que no sea reporte el listview, debes agregar en el parametro que sige tambien el valor "1"...quedaria asi:

Código

Set L = lv.ListItems.Add(, , "caca" & i, 1, 1)

el ultimo parametro es para cuando esta en modo reporte.

saludos.

Título: Re: No carga el icono en el ListView.
Publicado por: Snopk en 17 Enero 2010, 21:00 pm

Ahora si funciona, muchas gracias de nuevo seba123neo. ;-)

Título: Re: [Solucionado] No carga el icono en el ListView.
Publicado por: freddyjose00 en 14 Abril 2010, 15:01 pm

Buena esa.. Pero tengo algo que tambien puede servir...

Em las propiedades del LitView >> Listas de Imágenes >> Normal= Ninguno >> Pequeño= ImgList >> Encabezado= Ninguno. En modo reporte.. Creas una función

Código:

Private Sub Cargar_Opciones()
    Dim itemx As ListItem
        
        lv.ColumnHeaders(1).Width = (lv.Width - 120)
    
        Set itemx = lv.ListItems.Add(, "user", "Opciones Usuarios", , "user")
            itemx.Selected = True
            itemx.Tag = "Opciones Usuarios: Permite, crear, modificar, eliminar y buscar usuarios del sistema."
            Call lv_ItemClick(itemx)
            
        Set itemx = lv.ListItems.Add(, "search", "Buscar Conversación", , "search")
            itemx.Tag = "Buscar Conversación: Permite ver el historial de conversación que se han guardado previamnete."
        
        Set itemx = lv.ListItems.Add(, "tiempo", "Estado de Tiempo", , "tiempo")
            itemx.Tag = "Estado de Tiempo: Permite ver el estado de tiempo actual..."
            
        Set itemx = lv.ListItems.Add(, "webcam", "Iniciar Camara Web...", , "webcam")
            itemx.Tag = "Iniciar Camara Web: Establece la conexión por camara web... "
            
End Sub

La llamas del Load y listo..

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Snopk en 17 Enero 2010, 03:53 am