Image dans un UserForm Fermé

Question

Bonjour, 


Je code actuellement un projet info en VBA et je n'en fais que depuis quelques semaines.

J'ai une question que je n'arrive pas à résoudre à savoir importer une image dans mon UserForm depuis mon PC:

Private Sub Image1_Change()
Image1.Picture =LoadPicture("C:\...jpg")
End Sub

Ce simple code ne marche pas , quand j'execute , l'emplacement de l'image de mon userform reste vide.

Si un d'entre vous aurait une solution , je vous en serais très reconnaissant. 

Merci ,

f894009 · Answer

Bonjour,

Private Sub Image1_Change()Image1.Picture =LoadPicture("C:\...jpg")End Sub

Impossible, il faut un evenement Change pour que ce code s'execute et pas sur que l'image apparaisse, de meme que l'evenement Click

pour tester, mettez votre code dans un bouton ensuite regardez ce qui doit faire changer l'image

ThibaultBP · Answer

J'ai essayé et le bouton marche et fait apparaitre l'image.
Mais j'aimerais que l'image puisse apparaitre sans avoir a appuyer sur le bouton , je ne sais pas si c'est réalisable.

J'ai également un problème pour faire apparaitre l'image que je veux:

Private Sub CommandButton1_Click()

Dim a As String

a = Qh

Image3.Picture = LoadPicture("C:\Users	bretonpatient\Desktop\&a&.jpg")
Image4.Picture = LoadPicture("C:\Users	bretonpatient\Desktop\Kd.jpg")
Image5.Picture = LoadPicture("C:\Users	bretonpatient\Desktop\Ac.jpg")
End Sub

(Mon programme est un jeu de carte , je cherche a faire apparaitre la dame de carreaux dans ce cas précis)

Merci

f894009 · Answer

Re,

Image3.Picture = LoadPicture("C:\Users	bretonpatient\Desktop\" & a & ".jpg") 

 je ne sais pas si c'est réalisable. Il faut un evenement pour faire changer l'image. Qu'est-ce qui ferait que l'image change ???

ThibaultBP · Answer

"Il faut un evenement pour faire changer l'image. Qu'est-ce qui ferait que l'image change ???"

Le fait que le programme avance dans les lignes de code non ?  Je sais que dans d'autres langages c'était possible mais la effectivement en VBA je suis novice donc.

Et la ligne de codes que vous m'avez proposée pour inclure la string me donne une erreur 53..

f894009 · Answer

Re,

 vous m'avez proposée pour inclure desole, mais c'est la votre. Vous affectez a=QH mais c'est a="QH", d'apres les autres lignes de code

Le fait que le programme avance dans les lignes de code non ?  En VBA c'est pareil

Image dans un UserForm

5 réponses

Discussions similaires