Image Editing Tool in VB.Net: Part 1

In this article we will learn to make a image editing tool with the help of Vb.net. In this image editing tool we include resizing image, cropping image,brightness and contrast in images,rotation and other various common image editing functionality.

First we learn that how to implement these functionality in image one by one. so first we need to learn that how to show an image in windows form? for this we can take a picturebox control, picturebox control able to load an image file format like bmp,gpeg,gif,tiff file also.

So let start with our first step.

Start a new windows application and add one splitcontainer, picturebox, menustrip, toolstrip on windows form.

Arrange controls on the form like this.

Arrange-controls-in-vb.net.jpg

Now we need to open image on the form so we use open filedialog class for selecting image file.

Code File

Private Img As Image

Declare Img as object of Image class. Image class is the member of System.Drawing namespace, it is abstrat base class that provides functionality for raster images(bitmaps) and vector images(Metafile) descended classes.

use openfiledialog on OpenToolStripMenuItem_Click event

Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click

Dim Dlg As New OpenFileDialog

Dlg.Filter = ""

Dlg.Title = "Select image"

If Dlg.ShowDialog = Windows.Forms.DialogResult.OK Then

Img = Image.FromFile(Dlg.FileName)

'Image.FromFile(String) method creates an image from the specifed file, here dlg.Filename contains the name of the file from which to create the image

LoadImage()

End If

End Sub

Private Sub LoadImage()

'we set the picturebox size according to image, we can get image width and height with the help of Image.Width and Image.height properties.

Dim imgWidth As Integer = Img.Width

Dim imghieght As Integer = Img.Height

PictureBox1.Width = imgWidth

PictureBox1.Height = imghieght

PictureBox1.Image = Img

PictureBoxLocation()

End Sub

Suppose that your picturebox or image size is smaller than background panel than image will show in the corner of the panel in upperside and this is not professional look of showing image so we set the picturebox or image center location on panel.

After doing this image will always show in center of panel

Private Sub PictureBoxLocation()

Dim _x As Integer = 0

Dim _y As Integer = 0

If SplitContainer1.Panel1.Width > PictureBox1.Width Then

_x = (SplitContainer1.Panel1.Width - PictureBox1.Width) \ 2

End If

If SplitContainer1.Panel1.Height > PictureBox1.Height Then

_y = (SplitContainer1.Panel1.Height - PictureBox1.Height) \ 2

End If

PictureBox1.Location = New Point(_x, _y)

End Sub

Private Sub SplitContainer1_Panel1_Resize(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SplitContainer1.Panel1.Resize

PictureBoxLocation()

End Sub

You can try this code for making image editing tool,in this article you learn that how to show image on form, in next article of this series describe to Resize image....thanks