Programmer Point

Getting Properties of an Image

Language: VB.NET

Author: Aamir Mustafa

Introduction:

This simple article will show how to get image properties. In this article I will load a photo and then its property will be shown. it will display all the properties of an image like name, image type, image size, its resolution.

How to show property:

Create an empty project and add following controls on the form.

After doing that go to view code and add following code below Public Class Form1

Dim bitmapImage As Bitmap

Dim imageFile As String

After that add following just below the above code

Here we are initializing the List View so when first our program runs so we can see two columns, one for Property and second for Property value.

Public Sub New()

InitializeComponent()

lstProperties.View = View.Details

lstProperties.View = View.Details

lstProperties.Columns.Add("Property", Convert.ToInt32(lstProperties.Width * 50 \ 100))

lstProperties.Columns.Add("Value", Convert.ToInt32(lstProperties.Width * 45 \ 100))

lstProperties.GridLines = True

End Sub

Now write a function called GetProperties which gets the properties of an image and shows them in list view.

Private Sub GetProperties()

lstProperties.Items.Clear() ' clear the list view

lstProperties.Items.Add(New ListViewItem(New String() {"Name", System.IO.Path.GetFileNameWithoutExtension(imageFile)})) 'this will show name of image but not with extension

lstProperties.Items.Add(New ListViewItem(New String() {"Type", System.IO.Path.GetExtension(imageFile)})) 'this will show image type like JPEG

lstProperties.Items.Add(New ListViewItem(New String() {"Size", New System.IO.FileInfo(imageFile).Length.ToString() & " Bytes"})) 'this will show image size in bytes

lstProperties.Items.Add(New ListViewItem(New String() {"Width", pic.Width.ToString() & " Pixels"})) 'this will show image width

lstProperties.Items.Add(New ListViewItem(New String() {"Height", pic.Height.ToString() & " Pixels"})) 'this will show image height

lstProperties.Items.Add(New ListViewItem(New String() {"Vertical Resolution", bitmapImage.VerticalResolution.ToString() & " Pixels/Inch"})) 'this will show Vertical Resolution

lstProperties.Items.Add(New ListViewItem(New String() {"Horizontal Resolution", bitmapImage.HorizontalResolution.ToString() & " Pixels/Inch"})) 'this will show Horizontal Resolution

lstProperties.Items.Add(New ListViewItem(New String() {"Pixel Format", bitmapImage.PixelFormat.ToString()})) 'this will show pixel format.

lstProperties.Items.Add(New ListViewItem(New String() {"Palette Flags", bitmapImage.Palette.Flags.ToString()})) 'this will show pallete flags

End Sub

After that add following code to the load button’s click event. This opens a dialog to load picture from the local disk.

Private Sub btnLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoad.Click

Dim fileDialog As FileDialog = New OpenFileDialog()

fileDialog.Filter = "JPG (*.jpg)|*.jpg| Bitmap (*.bmp)|*.bmp|GIF (*.gif)|*.gif|JPEG (*.jpeg)|*.jpeg|PNG (*.png)|*.png|TIFF (*.tif)|*.tif|All Files (*.*)|*.*"

fileDialog.ShowDialog(Me)

pic.SizeMode = PictureBoxSizeMode.StretchImage

imageFile = fileDialog.FileName

If imageFile = String.Empty Then

Return

End If

pic.Image = Image.FromFile(imageFile)

bitmapImage = New Bitmap(imageFile)

GetProperties() ‘call GetProperties method

End Sub

Note:

If you want to get size of the image in Kilo Bytes then you can do it as follow

System.IO.FileInfo(imageFile).Length.ToString()\1024 & lstProperties.Items.Add(New ListViewItem(New String() {"Size", New" KB"})) 'this will show image size in kilo bytes