Resizing Batch Images

• Download source - 18.05 KB

Introduction

This application gets the source folder of images/photos in JPEG format and resizes them into a specific size and saves them into a destination directory.
The user can check crop setting for cropping images before resizing them.

Using the Code

Public Function ResizePicture(ByVal sourceImage As Bitmap, _
     ByVal newSize As Size) As Bitmap

     Dim Result_image As New Bitmap(sourceImage, newSize.Width, newSize.Height)
     Dim Gr As Graphics

     Gr = Graphics.FromImage(Result_image)
     Gr.DrawImage(Result_image, 0, 0, newSize.Width, newSize.Height)
     Gr.Save()

     Return Result_image
 End Function

 Public Function CropBitmap(ByVal inputBmp As Bitmap, _
     ByVal cropRectangle As Rectangle) As Bitmap
     'Create a new bitmap object based on the input
     Dim newBmp As New Bitmap(cropRectangle.Width, _
              cropRectangle.Height, _
              System.Drawing.Imaging.PixelFormat.Format24bppRgb) 'Graphics.FromImage
                     'doesn't like Indexed pixel format

     'Create a graphics object and attach it to the bitmap
     Dim newBmpGraphics As Graphics = Graphics.FromImage(newBmp)

     'Draw the portion of the input image in the crop rectangle
     'in the graphics object
     newBmpGraphics.DrawImage(inputBmp, _
           New Rectangle(0, 0, cropRectangle.Width, cropRectangle.Height), _
             cropRectangle, _
             GraphicsUnit.Pixel)

     'Return the bitmap
     newBmpGraphics.Dispose()

     'newBmp will have a RawFormat of MemoryBmp because it was created
     'from scratch instead of being based on inputBmp.  Since it is inconvenient
     'for the returned version of a bitmap to be of a different format, now convert
     'the scaled bitmap to the format of the source bitmap
     Return newBmp
 End Function

I wrote this application in about 30 minutes. This program is useful for batch resizing for a large number of photos.

History

• 21^st February, 2008: Initial post