VB.Net Tutorial/2D Graphics/RotateFlipType
Содержание
- 1 Rotate an Image: RotateFlipType.Rotate180FlipNone
- 2 Rotate an Image: RotateFlipType.Rotate270FlipNone
- 3 Rotate an Image: RotateFlipType.Rotate90FlipNone
- 4 Rotate an Image: RotateFlipType.RotateNoneFlipNone
- 5 Rotate an Image: RotateFlipType.RotateNoneFlipX
- 6 Rotate an Image: RotateFlipType.RotateNoneFlipXY
- 7 Rotate an Image: RotateFlipType.RotateNoneFlipY
Rotate an Image: RotateFlipType.Rotate180FlipNone
<source lang="vbnet">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</source>
Rotate an Image: RotateFlipType.Rotate270FlipNone
<source lang="vbnet">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</source>
Rotate an Image: RotateFlipType.Rotate90FlipNone
<source lang="vbnet">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</source>
Rotate an Image: RotateFlipType.RotateNoneFlipNone
<source lang="vbnet">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</source>
Rotate an Image: RotateFlipType.RotateNoneFlipX
<source lang="vbnet">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</source>
Rotate an Image: RotateFlipType.RotateNoneFlipXY
<source lang="vbnet">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</source>
Rotate an Image: RotateFlipType.RotateNoneFlipY
<source lang="vbnet">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</source>