Snippet
'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
Copy & Paste
|
| 