Kevin.Ory
Messages postés840Date d'inscriptionmercredi 22 octobre 2003StatutMembreDernière intervention 7 janvier 200911 22 oct. 2008 à 11:21
Salut,
Dim SourceImage As New Bitmap("C:\MonImage")
Dim DestinationImage As New Bitmap(SourceImage, 50, 100)
Pour plus de contrôle, tu peux aussi passer par un graphics:
Dim SourceImage As New Bitmap(dlg.FileName)
Dim DestinationImage As New Bitmap(50, 100)
Dim Graphics As Graphics = Graphics.FromImage(DestinationImage)
Graphics.DrawImage(SourceImage, 0, 0, 50, 100)
Kevin.Ory
Messages postés840Date d'inscriptionmercredi 22 octobre 2003StatutMembreDernière intervention 7 janvier 200911 22 oct. 2008 à 11:53
Un objet Graphics permet de dessiner (images, textes, formes simples, etc) sur une surface de dessin (image ou contrôle).
Ca fonctionne comme je l'ai montré justement, je remet mon code avec qq commentaires:
' Charger l'image source que l'on veut redimensionner
Dim SourceImage As New Bitmap(dlg.FileName)
' Déclarer l'image de destination qui contiendra l'image modifié
Dim DestinationImage As New Bitmap(50, 100)
' Obtenir un graphics pour l'image de destination qui nous permettra d'y dessiner
Dim Graphics As Graphics = Graphics.FromImage(DestinationImage)
' Dessiner ce qu'on veut dans l'image de destination
' (ici l'image source en spécifiant la nouvelle taille)
Graphics.DrawImage(SourceImage, 0, 0, 50, 100)
' DestinationImage contient alors SourceImage redimensionné.
' Tu peux y dessiner ce que tu veux d'autre (du texte par exemple)
' avant de l'afficher, grâce à l'objet Graphics