Comment afficher une image ???
Résolu
La Biode
Messages postés
133
Date d'inscription
jeudi 5 août 2004
Statut
Membre
Dernière intervention
11 août 2010
-
22 janv. 2005 à 22:15
La Biode Messages postés 133 Date d'inscription jeudi 5 août 2004 Statut Membre Dernière intervention 11 août 2010 - 22 janv. 2005 à 23:37
La Biode Messages postés 133 Date d'inscription jeudi 5 août 2004 Statut Membre Dernière intervention 11 août 2010 - 22 janv. 2005 à 23:37
A voir également:
- Afficher une image en c
- Afficher un tableau php en html - Conseils pratiques -PHP
- Convolution image - Conseils pratiques -Java
- Une image .tiff repose sur une palette de 256 000 couleurs. - Forum C / C++ / C++.NET
- Afficher les colonnes d'une table sql ✓ - Forum SQL
- Afficher userform vba ✓ - Forum Visual Basic
5 réponses
Gobillot
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
34
22 janv. 2005 à 23:30
22 janv. 2005 à 23:30
c'est un composant à ajouter au project:
project --> composant à ajouter -->
microsoft Common Dialog Control 6.0 (SP3)
Daniel
project --> composant à ajouter -->
microsoft Common Dialog Control 6.0 (SP3)
Daniel
jsem2k1
Messages postés
125
Date d'inscription
samedi 11 décembre 2004
Statut
Membre
Dernière intervention
12 août 2008
1
22 janv. 2005 à 23:15
22 janv. 2005 à 23:15
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
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
Gobillot
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
34
22 janv. 2005 à 23:23
22 janv. 2005 à 23:23
' 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
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
La Biode
Messages postés
133
Date d'inscription
jeudi 5 août 2004
Statut
Membre
Dernière intervention
11 août 2010
22 janv. 2005 à 23:25
22 janv. 2005 à 23:25
C'est quoi s'il te plait un commondialog ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
La Biode
Messages postés
133
Date d'inscription
jeudi 5 août 2004
Statut
Membre
Dernière intervention
11 août 2010
22 janv. 2005 à 23:37
22 janv. 2005 à 23:37
OK bien merci j'ai compris .
Je vous remerci vous deux .
Je vous remerci vous deux .
