[ TUVGM ] - Plusieurs icônes dans une ListView ?

Bonjour/soir,

'Soit une feuille, form1 avec à son bord un commandbutton, Command1, un
ImageList1, imagelist1 et un ListView1, listview1

Private Sub Command1_Click()
Dim NewListItem As ListItem
Set NewListItem = ListView1.ListItems.Add(, , , , 1)
NewListItem.ListSubItems.Add , , , 2
NewListItem.ListSubItems.Add , , "Hello!"
End Sub

Private Sub Form_Load()
ImageList1.ImageHeight = 16
ImageList1.ImageWidth = 16
ImageList1.ListImages.Add , , LoadPicture("C:Program FilesMicrosoft
Visual StudioCommonGraphicsIconsComputerCDROM01.ico")
ImageList1.ListImages.Add , , LoadPicture("C:Program FilesMicrosoft
Visual StudioCommonGraphicsIconsComputerMSGBOX01.ICO")
Set ListView1.SmallIcons = ImageList1
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , "Icône 1"
ListView1.ColumnHeaders.Add , , "Icône 2"
ListView1.ColumnHeaders.Add , , "Text"
End Sub

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"The Ultimate Video Game Museum" <tuvgm@online.fr> a écrit dans le
message de news:3f33923e$0$9565$626a54ce@news.free.fr

Toujours dans mes problèmes avec les ListView...
J'aimerai savoir si il est possible de mettre plusieurs icônes.
Je m'explique ... je souhaite que en vue Report par exemple il y ai :
- Icône 1
- Icône 2
- Texte issue d'une BD Access.

C'est possible ou non ? J'essaye de placer un icône dans une colonne
mais à la place il me met une valeur numérique.

Topper

Webmastering, webdesign des sites :
The Ultimate Video Game Museum : http://www.TUVGM.com/
TUVGM Live Playing ! : http://www.TUVGM.com/liveplaying/
FreeDO France : http://www.TUVGM.com/freedo/