VB.Net Tutorial/2D Graphics/RotateFlipType

Rotate an Image: RotateFlipType.Rotate180FlipNone

Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class Rotate180FlipNone
   public Shared Sub Main
        Application.Run(New Form1)
   End Sub
End class
public class Form1
  Inherits System.Windows.Forms.Form
  Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        Dim newImage As Image = Image.FromFile("yourfile.jpg")
        newImage.RotateFlip(RotateFlipType.Rotate180FlipNone)
        e.Graphics.DrawImage(newImage, New Rectangle(0, 0, 100, 100))
  End Sub
  Public Sub New()
   
    MyBase.New()
    Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
    Me.ClientSize = New System.Drawing.Size(292, 273)
    Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
  End Sub
End Class

Rotate an Image: RotateFlipType.Rotate270FlipNone

Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class Rotate270FlipNone
   public Shared Sub Main
        Application.Run(New Form1)
   End Sub
End class
public class Form1
  Inherits System.Windows.Forms.Form
  Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        Dim newImage As Image = Image.FromFile("yourfile.jpg")
        newImage.RotateFlip(RotateFlipType.Rotate270FlipNone)
        e.Graphics.DrawImage(newImage, New Rectangle(0, 0, 100, 100))
  End Sub
  Public Sub New()
   
    MyBase.New()
    Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
    Me.ClientSize = New System.Drawing.Size(292, 273)
    Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
  End Sub
End Class

Rotate an Image: RotateFlipType.Rotate90FlipNone

Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class Rotate90FlipNone
   public Shared Sub Main
        Application.Run(New Form1)
   End Sub
End class
public class Form1
  Inherits System.Windows.Forms.Form
  Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        Dim newImage As Image = Image.FromFile("yourfile.jpg")
        newImage.RotateFlip(RotateFlipType.Rotate90FlipNone)
        e.Graphics.DrawImage(newImage, New Rectangle(0, 0, 100, 100))
  End Sub
  Public Sub New()
   
    MyBase.New()
    Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
    Me.ClientSize = New System.Drawing.Size(292, 273)
    Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
  End Sub
End Class

Rotate an Image: RotateFlipType.RotateNoneFlipNone

Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class RotateNoneFlipNone
   public Shared Sub Main
        Application.Run(New Form1)
   End Sub
End class
public class Form1
  Inherits System.Windows.Forms.Form
  Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        Dim newImage As Image = Image.FromFile("yourfile.jpg")
        newImage.RotateFlip(RotateFlipType.RotateNoneFlipNone)
        e.Graphics.DrawImage(newImage, New Rectangle(0, 0, 100, 100))
  End Sub
  Public Sub New()
   
    MyBase.New()
    Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
    Me.ClientSize = New System.Drawing.Size(292, 273)
    Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
  End Sub
End Class

Rotate an Image: RotateFlipType.RotateNoneFlipX

Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class RotateNoneFlipX
   public Shared Sub Main
        Application.Run(New Form1)
   End Sub
End class
public class Form1
  Inherits System.Windows.Forms.Form
  Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        Dim newImage As Image = Image.FromFile("yourfile.jpg")
        newImage.RotateFlip(RotateFlipType.RotateNoneFlipX)
        e.Graphics.DrawImage(newImage, New Rectangle(0, 0, 110, 100))
  End Sub
  Public Sub New()
   
    MyBase.New()
    Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
    Me.ClientSize = New System.Drawing.Size(292, 273)
    Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
  End Sub
End Class

Rotate an Image: RotateFlipType.RotateNoneFlipXY

Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class RotateNoneFlipXY
   public Shared Sub Main
        Application.Run(New Form1)
   End Sub
End class
public class Form1
  Inherits System.Windows.Forms.Form
  Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        Dim newImage As Image = Image.FromFile("yourfile.jpg")
        newImage.RotateFlip(RotateFlipType.RotateNoneFlipXY)
        e.Graphics.DrawImage(newImage, New Rectangle(0, 0, 110, 100))
  End Sub
  Public Sub New()
   
    MyBase.New()
    Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
    Me.ClientSize = New System.Drawing.Size(292, 273)
    Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
  End Sub
End Class

Rotate an Image: RotateFlipType.RotateNoneFlipY

Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class RotateNoneFlipY
   public Shared Sub Main
        Application.Run(New Form1)
   End Sub
End class
public class Form1
  Inherits System.Windows.Forms.Form
  Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        Dim newImage As Image = Image.FromFile("yourfile.jpg")
        newImage.RotateFlip(RotateFlipType.RotateNoneFlipY)
        e.Graphics.DrawImage(newImage, New Rectangle(0, 0, 110, 100))
  End Sub
  Public Sub New()
   
    MyBase.New()
    Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
    Me.ClientSize = New System.Drawing.Size(292, 273)
    Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
  End Sub
End Class