REDIMENTIONNER UNE IMAGE EN VB.NET

Signaler
Messages postés
440
Date d'inscription
mardi 21 octobre 2003
Statut
Membre
Dernière intervention
6 mai 2010
-
Messages postés
6
Date d'inscription
lundi 4 décembre 2000
Statut
Membre
Dernière intervention
13 avril 2015
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/25805-redimentionner-une-image-en-vb-net

Messages postés
6
Date d'inscription
lundi 4 décembre 2000
Statut
Membre
Dernière intervention
13 avril 2015

et dans le cas ou on a ume application web
Messages postés
13
Date d'inscription
lundi 7 juillet 2003
Statut
Membre
Dernière intervention
8 mai 2009

Pour répondre aux posts précédents (même si c'est un peu tard ;-) :
l'aide de la fonction GetThumbnailImage avertit que la fonction renvoie la miniature de l'image si elle est incorporée dans l'image ou la crée avec un risque de détérioration de la qualité si la miniature n'existe pas.
Pour redimensionner l'image sans perte de qualité, il faut utiliser la fonction DrawImage :

Public Function image_echelle(ByVal ImaSource As Image, ByVal xPixelTotal As Int32, ByVal yPixelTotal As Int32) As Bitmap
Dim nouvImage As New Bitmap(xPixelTotal, yPixelTotal)
nouvImage.SetResolution(ImaSource.HorizontalResolution, ImaSource.VerticalResolution)
Dim graph As Graphics = Graphics.FromImage(nouvImage)
Dim rect As New Rectangle(0, 0, xPixelTotal, yPixelTotal)

graph.DrawImage(ImaSource, rect)
Return nouvImage
End Function

C'est une variante du code pour rogner l'image que j'ai trouvé ici : http://www.vbfrance.com/codes/ROGNER-IMAGE_38867.aspx
Ne pas oublier de rajouter la ligne SetResolution sinon on a la résolution d'écran.
Messages postés
15
Date d'inscription
jeudi 11 novembre 2004
Statut
Membre
Dernière intervention
2 juin 2009

Je l'ai appris dans le cadre de mon stage y'a pas bien longtemps également. Si je trouve une source qui prends en compte la conservation des paramètres de l'image, je la mettrais sur le site. Mais j'ai toujours rien trouvé après 3 jours de recherche. J'ai donc opté pour ta solution temporairement.
Messages postés
2336
Date d'inscription
samedi 14 juillet 2001
Statut
Membre
Dernière intervention
5 mai 2009
6
ça tu me l'apprend. En fait, je m'en suis toujours servis pour afficher à l'écran ou pour l'impression
Afficher les 12 commentaires