Discussion :

[conrad1218]

Bonjour à tous,

Ayant un niveau très faible en programmation je cherche à faire quelque chose qui à priori est simple, initialiser le chemin d'une image en une variable.

Explications:

J'ai uniquement programmé dans un userform, mon programme complet permet de faire apparaître des images dans ce userform, mais à chaque boucle je dois mettre le chemin de l'image...

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
 
Private Sub UserForm_Initialize()
'Initialisation des Signaux et Aiguilles en positions False dites Normal sauf pour S2
'car l'aiguille est en position pour l'itinéraire partant de S1
'Dans les propriétés du bouton S2, il a été initialisé en True pour être en concordance
'avec la couleur d'initialisation
Me.Image5.Picture = LoadPicture("C:\Users\Clem\Desktop\TCO\vert.jpg")
Me.Image4.Picture = LoadPicture("C:\Users\Clem\Desktop\TCO\vert.jpg ")
Me.Image3.Picture = LoadPicture("C:\Users\Clem\Desktop\TCO\vert.jpg")
Me.Image2.Picture = LoadPicture("C:\Users\Clem\Desktop\TCO\rouge.jpg ")
Me.Image1.Picture = LoadPicture("C:\Users\Clem\Desktop\TCO\vert.jpg")
Me.Image7.Picture = LoadPicture("C:\Users\Clem\Desktop\TCO\ag.jpg ")
Me.Image10.Picture = LoadPicture("C:\Users\Clem\Desktop\TCO\ag.jpg ")
 
 
End Sub

J'aurai aimé pouvoir trouver l'équivalent d'une déclaration de variable dans un sub général ou d'initialisation ou par exemple il y aurait cet effet.

vert = LoadPicture("C:\Users\Clem\Desktop\TCO\vert.jpg")
Mais cela n'est pas possible de cette manière avec un chemin.

Y a t-il la possibilité de ne pas retaper le chemin à chaque image ? Une solution dans l'initialisation ? le général de mon userform ?
Je n'ai pas trouvé réponse à cette question sur internet, et mon niveau est très faible...

En vous remerciant, bonne journée.
Clem.

[gnain]

Bonjour

Code :

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

1
2
3
4
5
6
Dim Chemin_1 As String
Chemin_1 = "C:\Users\Clem\Desktop\TCO\vert.jpg"
 
Me.Image5.Picture = LoadPicture(Chemin_1)
Me.Image4.Picture = LoadPicture(Chemin_1)
Me.Image3.Picture = LoadPicture(Chemin_1)

[conrad1218]

Mon dieu c'est vrai...
Merci beaucoup en tout cas ! Bon week end