Discussion :

[Didpa]

Bonjour

Voilà, je n'arrive pas a trouver ce que je cherche, sur la Faq, j'aimerais inserer une image dans un cadre image, qui change selon les donnée de la combobox, mais mes image sont parfois en .gif, et parfois en .jpeg, est ce que quelqu'un à une solution ??
j'ai ceci pour l'instant :

Code :

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

1
2
3
Private Sub CB_Nom_Poisson_Change()
Image1.Picture = LoadPicture("D:\Plongée\Poissons\CB_Nom_Poisson.value")
End Sub

Merci a vous d'avance
Cordialement
Didier

[Didpa]

Voilà, j'ai essayé plusieurs chose mais rien ne vas, il ne trouve pas mon image

voilà ou j'en suis rendu dans le code, mais cela ne change rien a mon problème, car je doit préciser si c'est du gif ou du jpeg

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CB_Nom_Poisson_Change()
 
Dim fichier As String
fichier = "D:\Plongée\Poissons\ " & CB_Nom_Poisson & ".gif" '"E:\Jeu\Ptit Dog\Application\Race de chiens " & ComboBox1 & ".Gif"
On Error Resume Next
Image1.Picture = LoadPicture(fichier)
 
If Err <> 0 Then
MsgBox "Image indisponible pour le " & CB_Nom_Poisson & Chr(13) & "Vérifier le chemin :" & Chr(13) & fichier, vbExclamation
End If
End Sub

Si quelqu'un à une idée.

[Didpa]

Voilà, j'ai essayé plusieurs chose mais rien ne vas, il ne trouve pas mon image

voilà ou j'en suis rendu dans le code, mais cela ne change rien a mon problème, car je doit préciser si c'est du gif ou du jpeg

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CB_Nom_Poisson_Change()
 
Dim fichier As String
fichier = "D:\Plongée\Poissons\ " & CB_Nom_Poisson & ".gif" On Error Resume Next
Image1.Picture = LoadPicture(fichier)
 
If Err <> 0 Then
MsgBox "Image indisponible pour le " & CB_Nom_Poisson & Chr(13) & "Vérifier le chemin :" & Chr(13) & fichier, vbExclamation
End If
End Sub

Si quelqu'un à une idée.

[Didpa]

Me revoilà

je ne sais plus comment faire, je crois avoir tout essayé, quand je note le chemin direct cela prend bien, a partir du moment ou j'essaie d'incorporer la Combobox, cela ne fonctionne plus.

Si quelqu'un avait la solution.

et le petit plus si vous savez comment faire pour pouvoir choisir soit une image gif ou jpeg

Merci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CB_Nom_Poisson_change()
 
Dim fichier As String
fichier = "D:\Plongée\Poissons\CB_Nom_Poisson" & ".gif"
On Error GoTo gesterr
Image1.Picture = LoadPicture(fichier)
Exit Sub
gesterr::
fichier = "D:\Plongée\Images\Gif\Plongée ca baigne.gif"
Resume
End Sub