Code Snippets

VB.NET Source Code

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

Rotate and/or Flip an Image from a File

Uses the System.Drawing namespace to Rotate/Flip an Image.

Submitted By: RodgerB

Actions:

Rating:

Views: 5,581

Language: VB.NET

Last Modified: December 6, 2007

Instructions:
1) Copy and paste this subroutine into a class.
2) Read on how to call the subroutine.

Snippet

''' <summary>
''' Rotates and/or flips an image from a file.
''' </summary>
''' <param name="imgPath">The path of the image you'd like to flip.</param>
''' <param name="savePath">The path of the flipped image you'd like to save to.</param>
''' <param name="rotFlipType">The RotateFlipType enum to flip or rotate the image.</param>
''' <param name="imgFormat">The format to save the file to.</param>
''' <remarks></remarks>
Public Sub rotFlipImageFromFile(ByRef imgPath As String, ByRef savePath As String, _
ByRef rotFlipType As RotateFlipType, ByRef imgFormat As System.Drawing.Imaging.ImageFormat)
Dim img As System.Drawing.Image
img = System.Drawing.Bitmap.FromFile(imgPath)
img.RotateFlip(rotFlipType)
' We delete the file if it exists so it doesn't fail.
If System.IO.File.Exists(savePath) Then System.IO.File.Delete(savePath)
img.Save(savePath, imgFormat)
End Sub
' Example usage of the snippet:
rotFlipImageFromFile("c:\lol.gif", "c:\lol.gif", RotateFlipType.RotateNoneFlipXY, _
Imaging.ImageFormat.Gif)

Copy & Paste

''' <summary>
''' Rotates and/or flips an image from a file.
''' </summary>
''' <param name="imgPath">The path of the image you'd like to flip.</param>
''' <param name="savePath">The path of the flipped image you'd like to save to.</param>
''' <param name="rotFlipType">The RotateFlipType enum to flip or rotate the image.</param>
''' <param name="imgFormat">The format to save the file to.</param>
''' <remarks></remarks>

Public Sub rotFlipImageFromFile(ByRef imgPath As String, ByRef savePath As String, _
ByRef rotFlipType As RotateFlipType, ByRef imgFormat As System.Drawing.Imaging.ImageFormat)
    Dim img As System.Drawing.Image
    img = System.Drawing.Bitmap.FromFile(imgPath)
    img.RotateFlip(rotFlipType)
    ' We delete the file if it exists so it doesn't fail.
    If System.IO.File.Exists(savePath) Then System.IO.File.Delete(savePath)
    img.Save(savePath, imgFormat)
End Sub

' Example usage of the snippet:
rotFlipImageFromFile("c:\lol.gif", "c:\lol.gif", RotateFlipType.RotateNoneFlipXY, _
Imaging.ImageFormat.Gif)