BG personal blog Approfondimenti tecnici sul mondo informatico – By Gabriele Besta

Dim bitmap As New Bitmap("C:\immagine_originale.jpg") 'path dell'immagine originale
 
Dim larghezza As Integer = 800 'larghezza nuova immagine
Dim altezza As Integer = 600 'altezza nuova immagine
Dim nuova_immagine As New Bitmap(larghezza, altezza)
Dim temp As Graphics = Graphics.FromImage(nuova_immagine)
 
temp.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
temp.DrawImage(bitmap, New Rectangle(0, 0, larghezza, altezza), New Rectangle(0, 0, bitmap.Width, bitmap.Height), GraphicsUnit.Pixel)
 
nuova_immagine.Save("C:\nuova_immagine.jpg", System.Drawing.Imaging.ImageFormat.Jpeg) 'path dove salvare l'immagine ridimensionata
 
'ricordiamoci di riliasciare gli oggetti caricati in memoria
temp.Dispose()
bitmap.Dispose()
nuova_immagine.Dispose()