Image PNG
Résolu
cs_petchy
Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
-
17 mai 2007 à 14:48
chaibat05 Messages postés 1883 Date d'inscription samedi 1 avril 2006 Statut Membre Dernière intervention 20 novembre 2007 - 18 mai 2007 à 18:40
chaibat05 Messages postés 1883 Date d'inscription samedi 1 avril 2006 Statut Membre Dernière intervention 20 novembre 2007 - 18 mai 2007 à 18:40
A voir également:
- Vb png
- Dim png - Meilleures réponses
- Gdipcreatebitmapfromfile - Meilleures réponses
- Tif to png - Forum Delphi / Pascal
- Change image png - Forum Visual Basic 6
- Convertir en png transparent - Forum C
- Convertir png en bmp - Forum C / C++ / C++.NET
- Vb vba - Forum Visual Basic
48 réponses
cs_DARKSIDIOUS
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Membre
Dernière intervention
4 mars 2013
130
17 mai 2007 à 16:45
17 mai 2007 à 16:45
GDI+ est loin d'être compliqué, je dirais même qu'il est plus plus simple que le gdi32 car il a une approche objet que n'a pas gdi32, bien que s'utilisant de la même façon que gdi32.
Il permet surtout de faire bien plus de chose : anti-aliasing, gestion du canal alpha, gestion du format png, etc.
Il permet surtout de faire bien plus de chose : anti-aliasing, gestion du canal alpha, gestion du format png, etc.
chaibat05
Messages postés
1883
Date d'inscription
samedi 1 avril 2006
Statut
Membre
Dernière intervention
20 novembre 2007
2
18 mai 2007 à 13:37
18 mai 2007 à 13:37
dans le code GDI+, il n' y a plus un chemein unique
Call GdipCreateBitmapFromFile("C:\IMAGES\01.png", lBitmap)
Mais
Call GdipCreateBitmapFromFile(xPath)
xPath sera remplacé automatiquement par le chemin que tu va récupérer
<hr />
© -En ce moment, c' est que pour Cannes...Mais moi aussi je tourne !
(Rolling, mon poisson rouge)
Call GdipCreateBitmapFromFile("C:\IMAGES\01.png", lBitmap)
Mais
Call GdipCreateBitmapFromFile(xPath)
xPath sera remplacé automatiquement par le chemin que tu va récupérer
<hr />
© -En ce moment, c' est que pour Cannes...Mais moi aussi je tourne !
(Rolling, mon poisson rouge)
Gobillot
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
34
18 mai 2007 à 16:27
18 mai 2007 à 16:27
Alors Petchy tu y arrives ?
voilà l'exemple complet avec un bouton, un commondiag, un picturebox indicé
Dim token As Long
Private Sub Form_Load()
Dim GpInput As GdiplusStartupInput
GpInput.GdiplusVersion = 1
If GdiplusStartup(token, GpInput) <> Ok Then
MsgBox "Erreur chargement GDI+ !", vbCritical
Unload Me
End If
Picture1(1).AutoRedraw = True
End Sub
Private Sub Command1_Click()
CommonDialog1.Filter = "All Picture Files(*.bmp;*.jpg;*.gif;*.png)|*.bmp;*.jpg;*.gif;*.png|Bitmaps (*.bmp)|*.bmp|JPEG Images (*.jpg)|*.jpg|GIF Images (*.gif)|*.gif|PNG Images (*.png)|*.png"
CommonDialog1.FilterIndex = 1
CommonDialog1.CancelError = True
CommonDialog1.Flags = cdlOFNFileMustExist
On Error GoTo Error
CommonDialog1.ShowOpen
Call Affiche(CommonDialog1.FileName)
Exit Sub
Error:
Beep
If Err = 32755 Then Exit Sub
MsgBox Err.Description & " (" & Err & ")", vbExclamation, "Open Erreur"
Exit Sub
End Sub
Private Sub Affiche(xPath As String)
Dim lBitmap As Long
Dim lGraphics As Long
Dim xWidth As Long
Dim xHeight As Long
Picture1(1).Cls
Call GdipCreateBitmapFromFile(xPath, lBitmap)
Call GdipGetImageWidth(lBitmap, xWidth)
Call GdipGetImageHeight(lBitmap, xHeight)
Picture1(1).Width = Me.ScaleX(xWidth + 4, vbPixels, Me.ScaleMode)
Picture1(1).Height = Me.ScaleY(xHeight + 4, vbPixels, Me.ScaleMode)
Call GdipCreateFromHDC(Picture1(1).hDC, lGraphics)
Call GdipDrawImageI(lGraphics, lBitmap, 0, 0)
Call GdipDisposeImage(lBitmap)
Call GdipDeleteGraphics(lGraphics)
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Call GdiplusShutdown(token)
End Sub
Daniel
voilà l'exemple complet avec un bouton, un commondiag, un picturebox indicé
Dim token As Long
Private Sub Form_Load()
Dim GpInput As GdiplusStartupInput
GpInput.GdiplusVersion = 1
If GdiplusStartup(token, GpInput) <> Ok Then
MsgBox "Erreur chargement GDI+ !", vbCritical
Unload Me
End If
Picture1(1).AutoRedraw = True
End Sub
Private Sub Command1_Click()
CommonDialog1.Filter = "All Picture Files(*.bmp;*.jpg;*.gif;*.png)|*.bmp;*.jpg;*.gif;*.png|Bitmaps (*.bmp)|*.bmp|JPEG Images (*.jpg)|*.jpg|GIF Images (*.gif)|*.gif|PNG Images (*.png)|*.png"
CommonDialog1.FilterIndex = 1
CommonDialog1.CancelError = True
CommonDialog1.Flags = cdlOFNFileMustExist
On Error GoTo Error
CommonDialog1.ShowOpen
Call Affiche(CommonDialog1.FileName)
Exit Sub
Error:
Beep
If Err = 32755 Then Exit Sub
MsgBox Err.Description & " (" & Err & ")", vbExclamation, "Open Erreur"
Exit Sub
End Sub
Private Sub Affiche(xPath As String)
Dim lBitmap As Long
Dim lGraphics As Long
Dim xWidth As Long
Dim xHeight As Long
Picture1(1).Cls
Call GdipCreateBitmapFromFile(xPath, lBitmap)
Call GdipGetImageWidth(lBitmap, xWidth)
Call GdipGetImageHeight(lBitmap, xHeight)
Picture1(1).Width = Me.ScaleX(xWidth + 4, vbPixels, Me.ScaleMode)
Picture1(1).Height = Me.ScaleY(xHeight + 4, vbPixels, Me.ScaleMode)
Call GdipCreateFromHDC(Picture1(1).hDC, lGraphics)
Call GdipDrawImageI(lGraphics, lBitmap, 0, 0)
Call GdipDisposeImage(lBitmap)
Call GdipDeleteGraphics(lGraphics)
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Call GdiplusShutdown(token)
End Sub
Daniel
cs_Exploreur
Messages postés
4821
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
15
17 mai 2007 à 14:50
17 mai 2007 à 14:50
Salut,
Tout dépend des filtre que tu as mis dans ton CommonDialog...
A+
Exploreur
Linux a un noyau, Windows un pépin
Tout dépend des filtre que tu as mis dans ton CommonDialog...
A+
Exploreur
Linux a un noyau, Windows un pépin
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
cs_Exploreur
Messages postés
4821
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
15
17 mai 2007 à 14:51
17 mai 2007 à 14:51
Salut ,
Exemple :
TaCommonDialog.Filter = "Fichiers Image (*.PNG)|*.Png"
A+
Exploreur
Linux a un noyau, Windows un pépin
Exemple :
TaCommonDialog.Filter = "Fichiers Image (*.PNG)|*.Png"
A+
Exploreur
Linux a un noyau, Windows un pépin
cs_petchy
Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
4
17 mai 2007 à 15:10
17 mai 2007 à 15:10
Re
pourtant j'ai bien dans le filtre png
CommonDialog2.Filter = "Tout formats Image (*.jpg;*.bmp;*.gif;*.png)|*.png;*.bmp;*.jpg;*.gif;*.gif|Image jpeg (*.jpg)|*.jpg|Image bitmap (*.bmp)|*.bmp|Image gif (*.gif)|*.gif|Image png (*.png)|*.png|Tout fichiers (*.*)|*.*"
mais c'est quand je veut ouvrir l'image il met une erreur 481
image incorrect
@+
pourtant j'ai bien dans le filtre png
CommonDialog2.Filter = "Tout formats Image (*.jpg;*.bmp;*.gif;*.png)|*.png;*.bmp;*.jpg;*.gif;*.gif|Image jpeg (*.jpg)|*.jpg|Image bitmap (*.bmp)|*.bmp|Image gif (*.gif)|*.gif|Image png (*.png)|*.png|Tout fichiers (*.*)|*.*"
mais c'est quand je veut ouvrir l'image il met une erreur 481
image incorrect
@+
cs_Exploreur
Messages postés
4821
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
15
17 mai 2007 à 15:22
17 mai 2007 à 15:22
Salut,
Ah...Ouvrir une image et aller chercher le chemin d'une image n'est pas la même chose....
A+
Exploreur
Linux a un noyau, Windows un pépin
Ah...Ouvrir une image et aller chercher le chemin d'une image n'est pas la même chose....
A+
Exploreur
Linux a un noyau, Windows un pépin
cs_petchy
Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
4
17 mai 2007 à 15:25
17 mai 2007 à 15:25
Re
en fait je crois qui ne gere pas le format PNG,mais comment faire pour qu'il le gere
merci
petchy
en fait je crois qui ne gere pas le format PNG,mais comment faire pour qu'il le gere
merci
petchy
cs_Exploreur
Messages postés
4821
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
15
17 mai 2007 à 15:28
17 mai 2007 à 15:28
Salut,
D'après ce que je viens de lire dans l'aide en ligne sur le contrôle PictureBox et Image, ils ne n'affichent pas le format Png.....Mais je peux me tromper car le format Png est un format Bitmap (raster)...
A+
Exploreur
Linux a un noyau, Windows un pépin
D'après ce que je viens de lire dans l'aide en ligne sur le contrôle PictureBox et Image, ils ne n'affichent pas le format Png.....Mais je peux me tromper car le format Png est un format Bitmap (raster)...
A+
Exploreur
Linux a un noyau, Windows un pépin
cs_DARKSIDIOUS
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Membre
Dernière intervention
4 mars 2013
130
17 mai 2007 à 15:33
17 mai 2007 à 15:33
en effet, le png n'est pas géré par gdi32, mais par contre, tu peux utiliser GDI+ plus afficher un png dans le DC du picturebox, voir sur le site de vbaccelerator pour un wrapper GDI+ pour vb6 avec un exemple d'utilisation.
chaibat05
Messages postés
1883
Date d'inscription
samedi 1 avril 2006
Statut
Membre
Dernière intervention
20 novembre 2007
2
17 mai 2007 à 16:27
17 mai 2007 à 16:27
Bonjour,
j' ai le même problème.
Du coup je me suis contenté de convertir en jpg.
C' est vrai que le résultat n' est pas top.
Mais est-ce que ça vaut vraiment la peine de faire
appel à GD+ rien que pour ça ?
Je viens de jeter un coup d' oeil et ça m' a l' air très compliqué.
VbAccelerator en est m$eme convaincu :
...Using it from VB though is more difficult
<hr />
© - En ce moment, c' est que pour Cannes...Mais moi aussi je tourne !
(Rolling, mon poisson rouge)
<hr />
<hr />
j' ai le même problème.
Du coup je me suis contenté de convertir en jpg.
C' est vrai que le résultat n' est pas top.
Mais est-ce que ça vaut vraiment la peine de faire
appel à GD+ rien que pour ça ?
Je viens de jeter un coup d' oeil et ça m' a l' air très compliqué.
VbAccelerator en est m$eme convaincu :
...Using it from VB though is more difficult
<hr />
© - En ce moment, c' est que pour Cannes...Mais moi aussi je tourne !
(Rolling, mon poisson rouge)
<hr />
<hr />
cs_petchy
Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
4
17 mai 2007 à 16:42
17 mai 2007 à 16:42
Re
ok,merci à vous pour vos réponses,je vais essayer d'intégré le GDI+.
@ plus
petchy
ok,merci à vous pour vos réponses,je vais essayer d'intégré le GDI+.
@ plus
petchy
chaibat05
Messages postés
1883
Date d'inscription
samedi 1 avril 2006
Statut
Membre
Dernière intervention
20 novembre 2007
2
17 mai 2007 à 16:53
17 mai 2007 à 16:53
Vu de cet angle et venant de toi,
je ne pourrais que l' adopter.
Convaincu donc.
et merci pour les précisions
Bonne fin de journée.
<hr />
© - En ce moment, c' est que pour Cannes...Mais moi aussi je tourne !
(Rolling, mon poisson rouge)
<hr />
<hr />
je ne pourrais que l' adopter.
Convaincu donc.
et merci pour les précisions
Bonne fin de journée.
<hr />
© - En ce moment, c' est que pour Cannes...Mais moi aussi je tourne !
(Rolling, mon poisson rouge)
<hr />
<hr />
chaibat05
Messages postés
1883
Date d'inscription
samedi 1 avril 2006
Statut
Membre
Dernière intervention
20 novembre 2007
2
17 mai 2007 à 17:00
17 mai 2007 à 17:00
juste deus petites préisions encore :
Est ce qu' il faut juste télécharger le Zip et Installer ?
Et est ce que ça sera inclut dans un Package pour le deploiement ?
<hr />
© - En ce moment, c' est que pour Cannes...Mais moi aussi je tourne !
(Rolling, mon poisson rouge)
<hr />
<hr />
Est ce qu' il faut juste télécharger le Zip et Installer ?
Et est ce que ça sera inclut dans un Package pour le deploiement ?
<hr />
© - En ce moment, c' est que pour Cannes...Mais moi aussi je tourne !
(Rolling, mon poisson rouge)
<hr />
<hr />
cs_DARKSIDIOUS
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Membre
Dernière intervention
4 mars 2013
130
17 mai 2007 à 17:27
17 mai 2007 à 17:27
??? càd ?
Le wrapper gdi+ n'est en fait qu'un fichier tlb contenant les définitions des fonctions de la gdi+ (une sorte de fichier contenant tout les Declare function des API Windows, afin d'éviter de les déclarer dans son code), donc il faut bien entendu déployer son programme avec ce fichier de définition (qui ne pèse que quelques Ko) + la librairie GDI+ si installation sur système Windows 98 (elle est installée par défaut sur XP il me semble).
Le wrapper gdi+ n'est en fait qu'un fichier tlb contenant les définitions des fonctions de la gdi+ (une sorte de fichier contenant tout les Declare function des API Windows, afin d'éviter de les déclarer dans son code), donc il faut bien entendu déployer son programme avec ce fichier de définition (qui ne pèse que quelques Ko) + la librairie GDI+ si installation sur système Windows 98 (elle est installée par défaut sur XP il me semble).
cs_sirine_28_06_85
Messages postés
40
Date d'inscription
jeudi 22 mars 2007
Statut
Membre
Dernière intervention
6 avril 2008
17 mai 2007 à 17:52
17 mai 2007 à 17:52
voila c'est pour toi:
CommonDialog1.DialogTitle = "Ouvrir image"
CommonDialog1.Filter = "Fichiers Image (*.PNG)|*.Png"
CommonDialog1.FilterIndex = 1
CommonDialog1.InitDir = App.Path
CommonDialog1.FileName = ""
CommonDialog1.ShowOpen
CommonDialog1.DialogTitle = "Ouvrir image"
CommonDialog1.Filter = "Fichiers Image (*.PNG)|*.Png"
CommonDialog1.FilterIndex = 1
CommonDialog1.InitDir = App.Path
CommonDialog1.FileName = ""
CommonDialog1.ShowOpen
chaibat05
Messages postés
1883
Date d'inscription
samedi 1 avril 2006
Statut
Membre
Dernière intervention
20 novembre 2007
2
17 mai 2007 à 18:57
17 mai 2007 à 18:57
@DS,
Ah bon !
en fait j' ai posté avant de télécharger et donc je croyais qu' il s' agissait
d' une mise à jour système...Mais d' après l' exemple il est surtout question de traitement
d' images, ce qui n' est pas mon truc.
Tout ce que je veux c' est pouvoir insèrer une image PNG dans une pictureBox
à travers sa propriété Picture pour agrémenter une interface.
Et il n' est même pas question que j' utilise ComomDialog.
<hr />
© - En ce moment, c' est que pour Cannes...Mais moi aussi je tourne !
(Rolling, mon poisson rouge)
Ah bon !
en fait j' ai posté avant de télécharger et donc je croyais qu' il s' agissait
d' une mise à jour système...Mais d' après l' exemple il est surtout question de traitement
d' images, ce qui n' est pas mon truc.
Tout ce que je veux c' est pouvoir insèrer une image PNG dans une pictureBox
à travers sa propriété Picture pour agrémenter une interface.
Et il n' est même pas question que j' utilise ComomDialog.
<hr />
© - En ce moment, c' est que pour Cannes...Mais moi aussi je tourne !
(Rolling, mon poisson rouge)
chaibat05
Messages postés
1883
Date d'inscription
samedi 1 avril 2006
Statut
Membre
Dernière intervention
20 novembre 2007
2
17 mai 2007 à 18:59
17 mai 2007 à 18:59
Merci quand même à sirine :-)
<hr />
© - En ce moment, c' est que pour Cannes...Mais moi aussi je tourne !
(Rolling, mon poisson rouge)
<hr />
© - En ce moment, c' est que pour Cannes...Mais moi aussi je tourne !
(Rolling, mon poisson rouge)
cs_DARKSIDIOUS
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Membre
Dernière intervention
4 mars 2013
130
17 mai 2007 à 19:02
17 mai 2007 à 19:02
ah non, GDI+ ne te permettra pas de mettre une image png directement dans un picturebox, c'est une librairie, tout comme gdi32, qui te permet d'utiliser des images PNG. Elle ne remplace pas la gdi32, il s'agit juste d'une évolution logique du gdi32.
Donc pour afficher l'image png dans le picturebox, il faut passer par les fonctions de la GDI+ (comme si tu utilisais LoadImage de la gdi32).
Donc pour afficher l'image png dans le picturebox, il faut passer par les fonctions de la GDI+ (comme si tu utilisais LoadImage de la gdi32).
chaibat05
Messages postés
1883
Date d'inscription
samedi 1 avril 2006
Statut
Membre
Dernière intervention
20 novembre 2007
2
17 mai 2007 à 19:07
17 mai 2007 à 19:07
Bon..bon...bon...!
Je laisse tomber alors...:-)
PS: Rolling te salue et me charge de te dire que tu le fais penser
à "Dark side of the moon"...Son album préféré...
A+
<hr />
© - En ce moment, c' est que pour Cannes...Mais moi aussi je tourne !
(Rolling, mon poisson rouge)
Je laisse tomber alors...:-)
PS: Rolling te salue et me charge de te dire que tu le fais penser
à "Dark side of the moon"...Son album préféré...
A+
<hr />
© - En ce moment, c' est que pour Cannes...Mais moi aussi je tourne !
(Rolling, mon poisson rouge)