Discussion :

[Ribéry]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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++

[jmfmarques]

Utilise un contrôle ImageList

[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.

[jmfmarques]

Ah ?
Ah !

[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.

[Ribéry]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Ribéry]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[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