Agregar iconos al ListView
Hola, me podrías ayudar con el ListView quiero agregar unos iconos en el encabezado, uso la propiedad ColumnHeaderIcons pero no me sale. Me puede mandar un ejemplo por favor.
Gracias por la atención.
Gracias por la atención.
1 Respuesta
Respuesta de jarpsoft
1
Primero tienes que agregar un control ImageList en este agregas algunas imágenes o iconos. Luego el código seria así:
Dim fd As Field
'Objetos para trabajar ListView
Dim clm As ColumnHeader
ImageList1.ListImages(2).Key = "Key1"
' Establecer la propiedad Key de ListImage.
ListView1.ColumnHeaderIcons = ImageList1
For Each fd In rs.Fields
Set clm = ListView1.ColumnHeaders.Add(, , fd.Name, 2 * TextWidth(fd.Name))
clm.Icon = "Key1"
Next fd
'JarpSoft
Dim fd As Field
'Objetos para trabajar ListView
Dim clm As ColumnHeader
ImageList1.ListImages(2).Key = "Key1"
' Establecer la propiedad Key de ListImage.
ListView1.ColumnHeaderIcons = ImageList1
For Each fd In rs.Fields
Set clm = ListView1.ColumnHeaders.Add(, , fd.Name, 2 * TextWidth(fd.Name))
clm.Icon = "Key1"
Next fd
'JarpSoft
