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)
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