Besoin d'un petit coup de main sur le LISTVIEW AVEC ICONES [Résolu]

Signaler
Messages postés
4
Date d'inscription
mercredi 25 mai 2005
Statut
Membre
Dernière intervention
6 décembre 2007
-
Messages postés
4
Date d'inscription
mercredi 25 mai 2005
Statut
Membre
Dernière intervention
6 décembre 2007
-
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.

4 réponses

Messages postés
4
Date d'inscription
mercredi 25 mai 2005
Statut
Membre
Dernière intervention
6 décembre 2007

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
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
68
on ne peut pas

Renfield
Admin CodeS-SourceS- MVP Visual Basic
Messages postés
4
Date d'inscription
mercredi 25 mai 2005
Statut
Membre
Dernière intervention
6 décembre 2007

Merci pour la réponse.
Y a t il une solution alternative?
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
68
utiliser autre chose qu'un listview.... une flexgrid ou autre

Renfield
Admin CodeS-SourceS- MVP Visual Basic