Discussion :

[marot_r]

Bonjour à tous et merci de votre temps et de votre aide.

J'ai essayer d'utiliser le contrôle CtrlImageList la TRÈS belle librarie faite par arkham46 qu'on trouve ici :
Le contrôle Liste d'images - CtrlImageList
http://arkham46.developpez.com/artic...ctrlimagelist/
Et pour test j'ai pris le code d'exemple en bas de discussion.

Hélas j'obtiens à la place des images (du même type que celles de l'exmple) des cadres vides.

• Le code ne plante pas. Je l'ai suivi pas à pas et je n'ai rien vu d'anormal.
• Les cadres vides réagissent aux événements.
• Le numéro bien s'affiche si on sélectionne une image.

Bref tout ce qui manque c'est l'affichage de l'image.

Au cas où : je suis en Windows 8.1 et mon Access 2007 est 32bits.

Quelqu'un a-t-il eu ce problème ?

A+

[Zekraoui_Jakani]

Bonjour, serait-il possible d'avoir une copie de la db (avec données fictives)? je compte bien la tester sur mon PC !

[marot_r]

Merci de ton aide.

Ci-joint les fichiers nécessaires.

• libtglplus.zip
• ListView.zip

Il faut mettre le MDB (est la librairie) dans le même répertoire que l'application et faire une référence dessus.

La Accdb est ma BD de test. Le formulaire est frmListImage_TGLPlus.

Le treeview marche bien donc je pense que c'est vraiment spécifique aux images pas à la librairie dans son ensemble.

A+

[Zekraoui_Jakani]

Je n'ai trouvé que "ListView.accdb" dans le zip, pas de librairie. Dois-je en créer une et changer le code ?
Petite piste: que se passe-t-il si tu changes les jpg en autre chose pour tester (png par exemple) ?

[micniv]

Bonjour à tous
Zerkaoui, pour info les 2 zip sont accollés. A ce maraud ! (que je félicite au passage pour ses excellentes (et patientes) contributions).

CDLT

[micniv]

Sur mon poste win7 + ACC2010 (32bits) , j'ai placé des photos de mon cru . Les images sont bien affichées avec ton code ... les images du menu aussi

mes seules modifs sont le chemein des images (suspects, les ; dans les noms de tes images) :

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
Private Sub Form_Load()
    Set oList = CreateTGLControl(CtrlImageList, Me.sfrmImageList)
 
    Dim lCpt As Long
    Dim lImg(1 To 6) As String
 
    ' Sélection multiple avec CTRL
    oList.MultipleSelection = True
    ' Tableau de 6 images
    '    lImg(1) = "C:\Users\Utilisateur\Images\img\2018-03-04 17;02;30.jpg"
    lImg(1) = CurrentProject.Path & "\img\img1.jpg"
    lImg(2) = CurrentProject.Path & "\img\img2.jpg"
    lImg(3) = CurrentProject.Path & "\img\img3.jpg"
    lImg(4) = CurrentProject.Path & "\img\img4.jpg"
    lImg(5) = CurrentProject.Path & "\img\img5.jpg"
    lImg(6) = CurrentProject.Path & "\img\img6.jpg"
 
    ' Images du menu affiché sur l'image
    '   oList.ImageListAdd "menu-", "C:\Users\Utilisateur\Images\img\Test.bmp", , , True
     oList.ImageListAdd "menu-", CurrentProject.Path & "\img\menu1.bmp", , , True
    oList.ImageListAdd "menu+", CurrentProject.Path & "\img\menu2.bmp", , , True
 
    ' Taille du menu ...