Besoin d'un petit coup de main sur le LISTVIEW AVEC ICONESRésolu

Question

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.

jfulon · Accepted Answer

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

Renfield · Answer

on ne peut pas

Renfield
Admin CodeS-SourceS- MVP Visual Basic

jfulon · Answer

Merci pour la réponse.
Y a t il une solution alternative?

Renfield · Answer

utiliser autre chose qu'un listview.... une flexgrid ou autre

Renfield
Admin CodeS-SourceS- MVP Visual Basic

Besoin d'un petit coup de main sur le LISTVIEW AVEC ICONES

4 réponses

Votre réponse