Bonjour,
Voici le contexte, j'ai un sous-formulaire avec plus de 250 controles 'Image'.
Au chargement du formulaire père je dois attribuer une 'picture' à ses 250 images.
Tout se passe bien mais ça prend beaucoup trop de temps. Afin d'y remédier j'ai voulu passer par une ImageList car je me dit que si les image sont déjà en mémoire, ça ira peut-etre plus vite.... (j'en suis meme pas sûr).
Bref, je découvre l'ImageList que j'ai réussi à charger d'images mais je ne parviens pas à récupérer l'image. Voici 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
 
Public gcMesImages As ImageList
 
    '======== Chargement des images ========
    Set gcMesImages = New ImageList
    Set lrRecordSet = New ADODB.Recordset
    lrRecordSet.ActiveConnection = CurrentProject.Connection
    lsSql = "SELECT * FROM tImage ;"
    lrRecordSet.Open lsSql
    While Not (lrRecordSet.EOF)
        gcMesImages.ListImages.Add , lrRecordSet("NomImage"), LoadPicture(gsCurrentPath & lrRecordSet("Chemin"))
        lrRecordSet.MoveNext
    Wend
    lrRecordSet.Close
 
'...
 
'Et j'utilise l'image de mon ImageList pour alimenter l'image visée
Private Sub Remplir_image(byVal piCol as integer, byVal piLin as integer)
'***
    Forms("fSsEditeur").Controls("ImgCase_" & piCol & "_" & piLin).Picture = gcMesImages.ListImages("FondGris").Picture
'***
End Sub
Bref, arrivé sur la ligne entre '***j'ai le message d'erreur 2220 : Access ne peut ouvrir le fichier '-989523418'.

Avez-vous une idée ? D'avance merci.

NB: J'utilise Access 2002 (SP3)