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
Control ListView (http://www.recursosvisualbasic.com.ar/htm/tutoriales/control-listview.htm)
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)
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.
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:
Set L = lv.ListItems.Add(, , "caca" & i, 1, 1)
el ultimo parametro es para cuando esta en modo reporte.
saludos.
Ahora si funciona, muchas gracias de nuevo seba123neo. ;-)
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
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..