Click here to Skip to main content
15,867,141 members
Articles / Programming Languages / Visual Basic

Image Cropping with Image Resizing Using VB.NET

Rate me:
Please Sign up or sign in to vote.
4.56/5 (44 votes)
17 Jun 2008CPOL2 min read 251.4K   15.6K   45   38
Simple Image Cropping with Image Resizing Using VB.NET

image_croppingVBNet/mainimg.jpg

Introduction

This article discusses simple image cropping with image resizing using VB.NET for developers.

Background

I wondered once upon a time about image cropping. I learned and understand that there are many simple image cropping techniques available compared to other cropping technology currently available.

Using the Code

This article discusses simple image cropping using VB.NET.

In this article, I discuss simple image cropping by using the common events like mouse move, mouse down, mouse up and button Click events.

I would like to discuss image cropping using five steps only. You need to follow these steps only.

The steps are as listed below:

  1. Load the image
  2. Crop the image
  3. Capture the image
  4. Resize the image (if you need)
  5. Save the image

Before we start creating, we need 2 picture box controls (PreviewPictureBox, crobPictureBox), 3 buttons (save, Cancel, open), 1 trackbar (resizingTrackBar) and some labels. Hey, this seems like cooking specifications.

The steps are briefly described below:

1. Load the Image

The image can load to the picture box using file open dialog box and be made to show by means of bitmap display method, i.e.:

VB.NET
openDlg.ShowDialog()  
PreviewPictureBox.Image = System.Drawing.Bitmap.FromFile(openDlg.FileName)
crobPictureBox.Image = System.Drawing.Bitmap.FromFile(openDlg.FileName)    
'*********PreviewPictureBox and crobPictureBox are 
'the cropping and previewing pictureboxes  

This can done either in form load or Button click events.

2. Crop the Image

The image can crop from the picture box using mouse move and mouse down events. This is possible by getting the x and y axis using the above events, i.e.:

VB.NET
cropX = e.X
cropY = e.Y
cropPen = New Pen(cropPenColor, cropPenSize)    
cropPen.DashStyle = DashStyle.DashDotDot          
'*************You have to create Colors(cropPenColor) 
'and Size(cropPenSize) to draw the doted lines  

You can see the styles that I applied to specify the selected area by DashStyle.DashDotDot. And also by crobPictureBox.CreateGraphics.DrawRectangle(cropPen, cropX, cropY, cropWidth, cropHeight).

3. Capture the Image

The image is captured only by using mouse up event, and the cropped image is set to Bitmap class which makes a image and sets the created image for preview, i.e.:

VB.NET
Dim bit As Bitmap = New Bitmap(crobPictureBox.Image, _
	crobPictureBox.Width, crobPictureBox.Height)
g.DrawImage(bit, 0, 0, rect, GraphicsUnit.Pixel)
PreviewPictureBox.Image = cropBitmap    

4. Resize the Image

If you want to resize the image, you can use the trackbar to resize the image. I prescribe use of a high quality image for resizing which results in quality cropped and resized images.

VB.NET
scale_factor = Integer.Parse(resizingTrackBar.Value)         
img1.Image = cropBitmap
bm_source = New 
Bitmap(img1.Image)  bm_dest = New Bitmap( _
CInt(bm_source.Width * scale_factor), _
Int(bm_source.Height * scale_factor))   
      
Dim gr_dest As Graphics = Graphics.FromImage(bm_dest)
gr_dest.DrawImage(bm_source, 0, 0, bm_dest.Width + i, bm_dest.Height + i)
PreviewPictureBox.Image = bm_dest
'*************Image resizing is done by means of getting the values from trackbar  

5. Save the Image

The cropped image may be a low quality one which leads to image distortion. I tried my level best to make the image with good quality. I used SmoothingMode, CompositingQuality, InterpolationMode and EncoderParameter(myEncoder, 60L) properties to make the images.

Points of Interest

In the above steps and coding methodology, you find simplicity. This is what I meant to do. All coders should use simple technique in an optimized manner for complicated issues.

History

  • 17th June, 2008: Initial post

License

This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)


Written By
Technical Lead
India India
This member has not yet provided a Biography. Assume it's interesting and varied, and probably something to do with programming.

Comments and Discussions

 
QuestionDownload demo - 52.56 KB Pin
Gerard van de ven15-Nov-18 6:36
Gerard van de ven15-Nov-18 6:36 
QuestionCrop and Maintain the Quality Automatically Pin
Momodu Deen Swarray4-Jul-18 5:38
Momodu Deen Swarray4-Jul-18 5:38 
QuestionCrop image with hight solutions Pin
Member 1338137128-Aug-17 0:30
Member 1338137128-Aug-17 0:30 
QuestionAsked Pin
Member 1321497221-May-17 22:54
Member 1321497221-May-17 22:54 
AnswerRe: Asked Pin
Senthil Sambandam26-Dec-18 23:51
professionalSenthil Sambandam26-Dec-18 23:51 
QuestionThanks Pin
Member 1185658428-Jul-15 20:32
Member 1185658428-Jul-15 20:32 
Questionresize rectangel Pin
Member 1116588130-Oct-14 5:33
Member 1116588130-Oct-14 5:33 
QuestionThanks Pin
raveena_ff12-Jun-13 2:37
raveena_ff12-Jun-13 2:37 
QuestionNeed Help Additing,Selecting,Moving Shapes to picture box Pin
rexpertq21-May-13 2:54
rexpertq21-May-13 2:54 
GeneralMy vote of 5 Pin
yasir.koplak5-May-13 23:00
yasir.koplak5-May-13 23:00 
GeneralMy vote of 4 Pin
dedyfuadi31-Mar-13 20:37
dedyfuadi31-Mar-13 20:37 
GeneralMy vote of 5 Pin
John L Bird25-Sep-12 1:49
John L Bird25-Sep-12 1:49 
QuestionAcquiring Images from Scanners Image Cropping with Image Resizing Save Image to Specific folder Pin
Anbarasan Gopal28-Aug-12 10:37
Anbarasan Gopal28-Aug-12 10:37 
GeneralImage Cropping with Image Resizing Using VB.NET Pin
VovaZ21-Apr-12 18:25
VovaZ21-Apr-12 18:25 
GeneralMy vote of 5 Pin
Member 820778419-Mar-12 4:35
Member 820778419-Mar-12 4:35 
GeneralMy vote of 5 Pin
Manoj Kumar Choubey20-Feb-12 22:06
professionalManoj Kumar Choubey20-Feb-12 22:06 
QuestionDear Sir, Pin
ibrahimsediq8-Feb-12 19:38
ibrahimsediq8-Feb-12 19:38 
SuggestionVery good Pin
Eugen-GM23-Jan-12 10:02
Eugen-GM23-Jan-12 10:02 
QuestionMissing Return Statement Pin
jason272618-Jan-12 21:26
jason272618-Jan-12 21:26 
QuestionHow to open a image in photoshop using vb.net Pin
successprabhu4-Dec-11 17:34
successprabhu4-Dec-11 17:34 
AnswerRe: How to open a image in photoshop using vb.net Pin
Member 476416514-Jan-12 0:58
Member 476416514-Jan-12 0:58 
GeneralMy vote of 5 Pin
Thilinalees29-Aug-11 17:41
Thilinalees29-Aug-11 17:41 
GeneralMy vote of 5 Pin
aalhanane9-Jun-11 4:14
aalhanane9-Jun-11 4:14 
GeneralMy vote of 5 Pin
dim1317-Dec-10 10:40
dim1317-Dec-10 10:40 
GeneralMy vote of 5 Pin
ManojDancer23-Sep-10 2:44
ManojDancer23-Sep-10 2:44 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.