[Solucionado] No carga el icono en el ListView.

[Snopk]

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 . 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.  

[seba123neo]

Control ListView

[Snopk]

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.

Código [Seleccionar] Expandir


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.

 

[seba123neo]

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 (vb) [Seleccionar] Expandir

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

el ultimo parametro es para cuando esta en modo reporte.

saludos.

[Snopk]

Ahora si funciona, muchas gracias de nuevo seba123neo. 

[freddyjose00]

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 [Seleccionar] Expandir

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..