1 pièce(s) jointe(s)
Remplir une ImageList depuis un UserForm
Bonjour à toutes et tous !
Un problème se pose à moi, qui malgré toutes mes tentatives, me résiste. Pour le taf, je suis en train de construire une petite base de donnée de recensement que les utilisateurs pourrons nourrir à l'aide d'un UserForm.
Celui-ci comprends un certains nombre de contrôleurs pour lesquels j'ai réussi à faire l'enregistrement des données sur une des feuilles du classeur.
Le formulaire doit aussi permettre de charger des images pour chaque entrées de la base de données. J'avais dans un premier temps stocké les images dans la feuille, mais cela n'est pas réaliste s'il y a un grand nombre d'entrées.
J'ai donc pris le parti d'utiliser des ImageList afin de stocker les images. Cependant, voilà la situation :
Charger l'image depuis l'ordinateur au travers du formulaire : OK
Afficher l'image dans le formulaire : OK
Code:
1 2 3 4 5 6 7 8 9 10
| Private Sub ImageSite()
'Fonction d'insertion de l'image de site dans le formulaire
InsImage1 = Application.GetOpenFilename 'With Application.FileDialog(msoFileDialogFilePicker)
Me.Image1.Picture = LoadPicture(InsImage1)
Me.Image1.PictureSizeMode = fmPictureSizeModeZoom
Me.ImageList1.ListImages.Add , , LoadPicture(InsImage1)
End Sub |
Stocker l'image dans l'ImageList : PROBLÈME
En fait l'image, a priori, se charge dans l'ImageList. En effet ce bouton indique un nombre d'objet cohérent :
Code:
1 2 3 4 5 6
| Private Sub CommandButton8_Click()
'Bouton pour vérifier le nombre d'entrée dans l'ImageList1
MsgBox Me.ImageList1.ListImages.Count
End Sub |
Mais quand je me rends dans la boîte de dialogue (Propriété de l'ImageList > Personnalisé) de l'ImageList, il n'y aucunes images... C'est comme si l'image se chargeait en "cache" et disparaissait à la fermeture du formulaire...
Si vos lumières pouvaient m'éclairer sur ce problème, ce serait super,
cordialement,
jo
PS En pièce-jointe le fichier pour tester :Pièce jointe 149551
Mode d'emploi :
Ouvrez le formulaire avec le bouton "Formulaire" sur la feuille DATA, saisissez vos données et votre images .jpg puis cliquer sur le bouton nouvelle entrée...