ListView & ImageList.-

[mdg]

Buenas colegas!

La cuestion ahora es , es posible asignar a cada item de un listview una imagen diferente?, como lo logro?, gracias de antemano.

[Sancho.Mazorka]

SI en la linea que agregas un nuevo valor al listview pones en [Icon] la ruta del icono, y en [SmallIcon] pones la vista en miniatura o la misma, tambien tenes que configurar para que soporte imagenes, en una de las solapas, tiene 3 opciones a las 3 les pones un valor diferente a ninguna.
PD: eso con el listivew version 6, si no te anda avisa



Sancho.Mazorka   

[mdg]

Hola Sancho, gracias por tu tiempo, econtre esta rutina en otra web que la comparto con todos por si les sirve:

Código [Seleccionar] Expandir

Dim ch As ColumnHeader    Dim li As ListItem
    With ListView1        .View = lvwReport        ' le asignamos el control Image        .SmallIcons = ImageList1        ' añadimos columnas y le ponemos el título        Set ch = .ColumnHeaders.Add(, , "Alumno", 800)        Set ch = .ColumnHeaders.Add(, , "Nombre y apellidos", 3500)        Set ch = .ColumnHeaders.Add(, , "Aula", 2200)        ' cargamos algunos datos en el LV y le añadimos la imagen        Set li = .ListItems.Add(, , "001")        li.SmallIcon = 1        li.SubItems(1) = "Antonio Pérez Hernández"        li.SubItems(2) = "Bio-Química"        Set li = .ListItems.Add(, , "002")        li.SmallIcon = 2        li.SubItems(1) = "Juan Roberto Otero Camacho"        li.SubItems(2) = "Física Nuclear"        Set li = .ListItems.Add(, , "003")        li.SmallIcon = 3        li.SubItems(1) = "María Jesús Mohedano García"        li.SubItems(2) = "Prácticas de laboratorio"    End With

Pueden cerrar el tema, gracias por todo.

[Sancho.Mazorka]

De nada mdg! Sirvio ese ejemplo no... ?



Sancho.Mazorka   

[~~]

Mirate esto y [img=http://www.recursosvisualbasic.com.ar/htm/tutoriales/control-listview.htm]http://esto[/img] para una info mas completa.

1S4ludo