jfulon
Messages postés4Date d'inscriptionmercredi 25 mai 2005StatutMembreDernière intervention 6 décembre 2007
-
6 déc. 2007 à 14:20
jfulon
Messages postés4Date d'inscriptionmercredi 25 mai 2005StatutMembreDernière intervention 6 décembre 2007
-
6 déc. 2007 à 17:04
Bonjour. J'aurais besoin d'un petit coup de main. J'ai réussit à afficher des icones dans la premiere colonne d'une ligne (tout comme ZedMaTrix que je remercie fortement pour sa source) mais il faudrait que j'ai des icones dans 2 colonnes sur les 3 que composent mon listview. Pourriez vous m'indiquer la méthode en vb6 svp.
A voir également:
Besoin d'un petit coup de main sur le LISTVIEW AVEC ICONES
jfulon
Messages postés4Date d'inscriptionmercredi 25 mai 2005StatutMembreDernière intervention 6 décembre 2007 6 déc. 2007 à 17:04
En fait je viens de trouver c'est du code VBA qui fonctionne en VB6 :
'Copie l'image selectionnee dans le chemin selectionne
clef = Format(Now, "ddMMyyyy,hh:mm:ss")
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFile "C:\fond_ecran1.bmp", chemDos
Me.ImageList1.ListImages.Add , clef, LoadPicture(chemDos & "\fond_ecran1.bmp")
' On inclut les icones dans le listview
Set Me.ListView1.SmallIcons = ImageList1
With ListView1
'On remplit la premiere colonne
With .ListItems
.Add , , , , clef
.Add , , , , clef
.Add , , , , clef
End With
'Remplissage de la 2ème et 3ème colonnes
'Attribution de l'image en utilisant a clef de l'ImageList
.ListItems(1).ListSubItems.Add , , , clef
.ListItems(1).ListSubItems.Add , , "bon"
.ListItems(2).ListSubItems.Add , , , clef
.ListItems(2).ListSubItems.Add , , "Mauvais"
.ListItems(3).ListSubItems.Add , , , clef
.ListItems(3).ListSubItems.Add , , "Correct"
End With