Discussion :

[e040098k]

Bonjour,

J'ai réalisé un form Access permettant de lister des fichiers stocker dans une table. Je voudrais insérer dans la première colonne de ma liste (ListBox), l'icone correspondant à l'éxécutable de mon fichier. A noter que j'alimente d'avord celle-ci par une requête SQL !

J'ai insérer un contrôle ImageList et j'ai fait ce code qui fait une boucle sur ma liste :

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
    For i = 1 To Lst_Results.ListCount
        Dim strLink As String
        strLink = Lst_Results.Column(3, i)'le chemin du fichier est dans la 3ème collonne
 
            'Recherche l'executable associé pour ouvrir les fichiers (la fonction est dans une module)
            Executable = FindExecutable(strLink)
 
            'Récupère le 1er icone de l'executable dans l'ImageList (la fonction est dans un module
            ImageList1.ListImages.Add , "cle" & i, GetIconFromFile(Executable, 0, False)
            'Associe la l'ImageList à la ListView
            'ListViewCtl0.SmallIcons = ImageList1
 
                With Lst_Results
                    .Column(1, i).SmallIcon = ImageList1
                End With
 
 
    Next i

Il me met un "objet requis sur la ligne :

Code :

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

                    .Column(1, i).SmallIcon = ImageList1

Si quelqu'un peut m'aider !

Merci

[Dolphy35]

Salut,

tu as regardé le tuto d'Arkham ?

http://arkham46.developpez.com/artic...utboxplus/doc/


Dolphy

[e040098k]

Euh... je n'ai pas tout compris le tuto !

Mais je croi qu'il faut que j'insère une listview !

Si je fait ça ca me met l'opération sur l'objet OLE à échoué !

[Invité]

Bonjour

As-tu jeté un coup d'oeil à cette excellente contribution de Vodiem là.

Starec

[e040098k]

Je ne comprend pas !

j'ai insérer le code de Vodiem

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
Private Sub Form_Load()
 
LargCol = Array(0, 700, 3000)
 
If Form.RecordSource <> "" Then
    Set monRs = CurrentDb.OpenRecordset(Form.RecordSource)
    Dim itmX As ListItem
 
    For Each nf In monRs.Fields                 'chargement des désignations de colonnes
        ListView1.ColumnHeaders.Add , , nf.Name
    Next nf
 
    For i = 1 To UBound(LargCol)                'fixation des largeurs de colonne
        ListView1.ColumnHeaders(i).Width = LargCol(i)
    Next i
 
    While Not monRs.EOF                         'chargement des enregistrements
        For i = 1 To (monRs.Fields.Count - 1)
        Set itmX = ListView1.ListItems.Add
        itmX.Icon = monRs.Fields(0).Value       '1er champ contient l'indice pour l'icone de l'imageliste
        itmX.SmallIcon = monRs.Fields(0).Value  '1er champ contient l'indice pour l'icone de l'imageliste
        itmX.SubItems(i) = CStr(monRs.Fields(i))
        Next i
        monRs.MoveNext
    Wend
End If
 
End Sub

Non seulement il me met une erreur sur :

Code :

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

        ListView1.ColumnHeaders.Add , , nf.Name

"Propriété ou méthode non gérée par cet objet"

Et il me met toujours "l'opération sur l'objet OLE à échoué !" quand je load mon form !

[e040098k]

Je me permet de faire un UP de ce poste car après une journée de recherche je n'ai toujours pas pigé le fonctionnement d'un listview !

Re commencons par mon premier problème :
Lorsque j'insère une listview j'ai droit à ça :

"l'opération sur l'objet OLE à échoué !" quand je load mon form !

j'ai bien la bibliothèque c:\windows\system32\MSCOMCTL.OCX pourtant