Code Snippets

VB.NET Source Code

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

Submitted By: spimoles

Actions:

Rating:

Views: 26,310

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.
CarmenDev 2009-06-15 06:17:23
The code sample is good and works corretly, but when an image has a transparent background, whe it saves the image it saves with a black background (you can see if you open it with paint). Can anyone help me to fix it? Thanks in advnace!
CarmenDev 2009-06-15 06:18:42
The code sample is good and works corretly, but when an image has a transparent background, when it saves the image, it saves with a black background (you can see if you open it with paint app). Can anyone help me to fix it? Thanks in advnace! (sorry about the grammar)
spimoles 2009-10-02 03:37:36
Wow, haven't been on this site in a little under 3years. I'm definitely going to give this snippet a look over and change some things. Looking forward to becoming active on this site.