BigMitch (Member)
Rookie
 
Messaggi: 43
Iscritto: 15/02/2009
|
Ciao a tutti ho un piccolo problema..qualcuno può aiutarmi a ridimensionare un immagine jpg in VB 2005?
Ho provato con la funzione
imamgine.GetThumbnailImage(width, heght, Nothing, New IntPtr())
dove in width e height imposto la dimensione ke voglio. Questa funzione mi restituisce il risultato ke voglio ma cn un immagine sfocata..  qualcuno conosce un altro procedimento?
Grazie 
|
BigMitch (Member)
Rookie
Messaggi: 43
Iscritto: 15/02/2009
|
Grazie  risolto in questo modo:
Dim bitmap As New Bitmap(PathImmagineDaRidimensionare) 'path dell'immagine originale
dim larghezza as Integer = TextBox1.Text '800 'larghezza nuova immagine
dim altezza as Integer= TextBox2.Text '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(PathDestinazioneIMmagineNuova, System.Drawing.Imaging.ImageFormat.Jpeg) 'path dove salvare l'immagine ridimensionata
Ciao e grazie ancora 
|
