لتغيير حجم الصورة - نسخة قابلة للطباعة

كود :
'following code resizes picture to fit

Dim bm As New Bitmap(PictureBox1.Image)

Dim x As Int32 'variable for new width size

Dim y As Int32 'variable for new height size

Dim width As Integer = Val(x) 'image width. 

Dim height As Integer = Val(y) 'image height

Dim thumb As New Bitmap(width, height)

Dim g As Graphics = Graphics.FromImage(thumb)

g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic

g.DrawImage(bm, New Rectangle(0, 0, width, height), New Rectangle(0, 0, bm.Width, _

bm.Height), GraphicsUnit.Pixel)

g.Dispose()



'image path. better to make this dynamic. I am hardcoding a path just for example sake

thumb.Save("C:\newimage.bmp", _

System.Drawing.Imaging.ImageFormat.Bmp) 'can use any image format 

bm.Dispose()

thumb.Dispose()

Me.Close() 'exit app