Ajout d'une image ds un ListView

Version imprimable

Bonjour tt le monde !

Voilà j'vous explique mon problème. J'aimerais qu'à la place d'une string, je mette une image dans un ListView. Voila mon code.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Private Sub SauveInfoUtil(ObjetListe As Object, _
                      ByVal Elément As clsUnElément)
    Dim ItemX   As ListItem
    Dim Cpte As Integer
    Dim mObjet As Object
    
    'Ajoute un élément à un objet (ListBox, ComboBox ou ListView)
    '************************************************************
    With Elément
    
        If TypeOf ObjetListe Is ListView Then
            'L'objet est une ListView, on ajoute le nom de l'élément
            '*******************************************************
           
            If .Variable > 0 Then
             Set ItemX = ObjetListe.ListItems.Add(, _
                                                 "K" + Format(Elément.Numéro), _
                                                 Elément.Nom + " (" + Elément.NomModule + ")")
                                                 
            .StyleObjet = .StyleObjet / 2
        For Cpte = 16 To 1 Step -1
            
         If ((.StyleObjet) - 2 ^ (Cpte - 1)) >= 0 Then
            ItemX.SubItems(Cpte) = LoadRessourceString(IDOui)             .StyleObjet = .StyleObjet - 2 ^ (Cpte - 1)
         Else
            ItemX.SubItems(Cpte) = LoadRessourceString(IDNon)
            .StyleObjet = .StyleObjet
         End If
         
        Next Cpte
        
      End If
    End If
      
   End With
End Sub

J'voudrais qu'à la place de LoadRessourceString(IDOui), je charge une image (par exemple une croix verte...)

Voila si qq'un sait comment faire...

Merci++

10/08/2006, 11h27
jmfmarques

Utilise un contrôle ImageList
10/08/2006, 13h49
Ribéry

Nan mais ce que je voudrais c'est que ds mon ListView où s'affiche une liste d'utilisateurs en l'occurence, j'affiche une image s'il appartient à un groupe donné ou non.
10/08/2006, 14h35
jmfmarques

Ah ?
Ah !
10/08/2006, 15h00
Ribéry

Mais le code où je teste si je mets Oui ou Non j'l'ai mis dans une classe et j'arrive pas à faire appel à ImagesList.

Voila ce que j'ai mis pour l'instant. Il me dit comme erreur "Varible bloc ou variable utilisateur non défini":

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Private Sub SauveInfoUtil(ObjetListe As Object, _
                      ByVal Elément As clsUnElément)
    Dim ItemX   As ListItem
    Dim Cpte As Integer
    Dim mObjet As Object
    Dim ImgX As ImageList
    'Ajoute un élément à un objet (ListBox, ComboBox ou ListView)
    '************************************************************
    With Elément
    
        If TypeOf ObjetListe Is ListView Then
            'L'objet est une ListView, on ajoute le nom de l'élément
            '*******************************************************
           
            If .Variable > 0 Then
             Set ItemX = ObjetListe.ListItems.Add(, _
                                                 "K" + Format(Elément.Numéro), _
                                                 Elément.Nom + " (" + Elément.NomModule + ")")
                                                 
            .StyleObjet = .StyleObjet / 2
        For Cpte = 16 To 1 Step -1
         If ((.StyleObjet) - 2 ^ (Cpte - 1)) >= 0 Then
            Set ImgX = ImgX.ListImages.Add(, "Fusée", _
      LoadPicture("C:\WINNT\Profiles\BRC\Stage BRC\valide.bmp"))              ItemX.Icon = "Fusée"
             .StyleObjet = .StyleObjet - 2 ^ (Cpte - 1)
         Else
            ItemX.SubItems(Cpte) = LoadRessourceString(IDNon)
            .StyleObjet = .StyleObjet
         End If
        
        Next Cpte
        
      End If
    End If
      
   End With
End Sub

En gras, c'est la ou il y a l'erreur.

Nan parce que j'ai récupéré ce code dans la msdn :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub Form_Load()
   Dim imgX As ListImage
   ' Ajoute des images à la collection ListImages.
   Set imgX = ImageList1.ListImages.Add(,"Fusée", _
      LoadPicture("icons\industry\rocket.ico"))
   Set imgX = ImageList1.ListImages.Add(,"Avion", _
      LoadPicture("icons\industry\plane.ico"))
   Set imgX = ImageList1.ListImages.Add(,"Voiture", _
      LoadPicture("icons\industry\cars.ico"))
 
   ' Définit la propriété Icons.
   ListView1.Icons = ImageList1 
 
   ' Ajoute des objets Item au contrôle ListView.
   Dim itmX as ListItem
   Set itmX = ListView1.ListItems.Add()
   ' Référence par index.
   itmX.Icon = 1
   itmX.Text = "Fusée"   ' Définit la chaîne de texte.
   Set itmX = ListView1.ListItems.Add()
   ' Référence par clé ("Avion").
   itmX.Icon = "Avion"
   itmX.Text = "Avion"   ' Définit la chaîne de texte.
   Set itmX = ListView1.ListItems.Add()
   itmX.Icon = "Voiture"
   itmX.Text = "Voiture"   ' Définit la chaîne de texte.
End Sub

Mais si je veuxx l'introduire dans ma classe ca peut pas fonctionner vu qu'il ne reconnaitra pas ListView1 et ImageList1...Comment j peux faire?

10/08/2006, 17h56
Le Pharaon

Ben je n'ai jamais utilisé un code pareil.
Toutefois je crainds que le problème vienne des types de paramètres de la procédure