Code Snippets

VB.NET Source Code

Welcome to Dream.In.Code
	Become a VB.NET Expert! Join 148,654 VB.NET Programmers for FREE! Get instant access to thousands of VB.NET experts, tutorials, code snippets, and more! There are 1,484 people online right now. Registration is fast and FREE... Join Now! Chat LIVE With a VB.NET Expert

Submitted By: spimoles

Actions:

Rating:

Views: 16,025

Last Modified: October 22, 2006

Instructions: Use as Function. Resizes image in a Picture Box

'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

Comments
realwish 2008-03-29 03:46:23
not easy to understand for a beginner
csee85 2008-05-04 05:54:05
NOOB
jagatworld 2008-05-16 23:17:16
really good......
jacobjordan 2008-12-31 13:48:16
This is good to demonstrate the concept of how to use Graphics to resize an image, and i have referenced it many times when providing help to people in VB.NET who need to do so. However, it is very unclear and poorly written, and needs much more explaining and commenting on your part. My 2 cents.