Comment afficher une image ???

Résolu
Signaler
Messages postés
133
Date d'inscription
jeudi 5 août 2004
Statut
Membre
Dernière intervention
11 août 2010
-
Messages postés
133
Date d'inscription
jeudi 5 août 2004
Statut
Membre
Dernière intervention
11 août 2010
-
Salut voilà je voudrais savoir comment afficher une image comme arrière plan dans un form suivant le choix de l'utilisateur je m'explique :
l'utilisateur a le choix entre plusieurs option (donc differente image)

Je voudrai savoir le code à incrire, le type du format de mon image ( jpg, gif, bmp ...), ou il faut enregistrer l'image pour qu'elle s'affiche. Et toutes les autres chose que j'ai besoin de savoir.

Merci en esperant que vous avez compris mon probleme . A+++

5 réponses

Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
31
c'est un composant à ajouter au project:

project --> composant à ajouter -->
microsoft Common Dialog Control 6.0 (SP3)

Daniel
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
125
Date d'inscription
samedi 11 décembre 2004
Statut
Membre
Dernière intervention
12 août 2008
1
The J

Salut je te conseille de mettre le chemain d'accet de chacun de tes images dans un vecteur ou chaque indexe corespondrai a l'option disponoble. ton code pourais alors resambler a ceci

dim ImaOpt(4) as String 'Vecteur qui Stoke le chemain de tes images
dim imgopt as integer 'Variable qui stoke le n° de l'option choisie
...
...

Private Sub Form_Load

ImaOpt(0)= App.Patch & "\Image\imgop1.bmp"
ImaOpt(1)= App.Patch & "\Image\imgop2.bmp"
ImaOpt(2)= App.Patch & "\Image\imgop3.bmp"
ImaOpt(3)= App.Patch & "\Image\imgop4.bmp"
ImaOpt(4)= App.Patch & "\Image\imgop5.bmp"

...
...

End Sub

Private Sub optImag_Click(Index As Integer)

imgopt=Index
...
...
End sub

Private Sub cmdOptValider_Click
...
...
Call AfficherImage(imgopt)

End Sub

Private Sub AfficherImage(Byval Oprion As Integer)

On error goto GesErreur:
me.Picture=LoadPicture ImaOpt(Option)

Exit sub

GesErreur:
Msgbox Error & vbnewline &"Impossible d'afficher l'image de fond!,Vbcritical,"Erreur Chemain d'accet"

End sub

Et Voila le tour est jouer. Je n'est pas tester le code mais il ne devrais pas y avoir de problème.

Remarque
Pour le type d'image si je ne me trompe pas tu peux choisir celui que tu veux.
Il est important que les différentes image de fond aie les meme dimention (le prog fonctionera toujour mais ce ne sera pas estétique)

Bonne Chance
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
31
' un CommonDialog appelé CDial


Private Sub Command1_Click()
CDial.Filter = "All Picture Files(*.bmp;*.jpg;*.gif)|*.bmp;*.jpg;*.gif|Bitmaps (*.bmp)|*.bmp|JPEG Images (*.jpg)|*.jpg|GIF Images (*.gif)|*.gif"
CDial.FilterIndex = 1
CDial.CancelError = True
CDial.Flags = cdlOFNFileMustExist
On Error GoTo Error
CDial.ShowOpen
If Dir(CDial.FileName) = vbNullString Then Exit Sub
Form1.Picture = LoadPicture(CDial.FileName)
Exit Sub
Error:
If Err = 32755 Then Exit Sub
MsgBox Err.Description & " (" & Err & ")", vbExclamation, "Open Erreur"
Exit Sub
End Sub

Daniel
Messages postés
133
Date d'inscription
jeudi 5 août 2004
Statut
Membre
Dernière intervention
11 août 2010

C'est quoi s'il te plait un commondialog ?
Messages postés
133
Date d'inscription
jeudi 5 août 2004
Statut
Membre
Dernière intervention
11 août 2010

OK bien merci j'ai compris .
Je vous remerci vous deux .