Bonjour
Si quelqu’un pourrait m’aider avec mon code :
J’ai mon formulaire « frmImage ». J’ai un ComboBox1 (liste déroulante) et deux zones (Image1, Image2), je veux que chaque (Image1Picture, Image2Picture) soit en relation avec le même ComboBox1.
Exemple : quand dans mon comboBox s’affiche AE140 mon (Image1 :AE140) et (Imege2 :AE140-2)
Les photos sont dans un répertoire.
Mon code marche que pour l’Image1 et je ne sais pas comment faire pour le Image2
Merci pour votre réponse
Private Sub ComboBox1_Change()
Dim FOTO As String
I = Me.ComboBox1.ListIndex + 2
On Error GoTo defaut
PHOTO = ComboBox1.Value
Image1.Picture = LoadPicture("C:\Users\Utilisateur\Desktop\PHOTO\" & ComboBox1.Value & ".jpg")
Exit Sub
defaut:
Image1.Picture = LoadPicture("C:\Users\Utilisateur\Desktop\PHOTO\defaut.jpg")
End Sub