強力鎯頭 VB BLOG

VB.Net 關於 PictureBox 圖片 的旋轉 / 翻轉

' Form Load 事件, PictureBox 讀入圖片

Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load

PictureBox1.SizeMode = PictureBoxSizeMode.AutoSize ' 設定PictureBox 自動調整大小

PictureBox1.Load("C:\Picture\Genius.jpg") ' PictureBox 載入影像

End Sub

' Button Click 事件, 設定PictureBox 翻轉/ 旋轉

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click

' 宣告建立Bitmap 影像物件

' Bitmap(Image) : 指定影像初始化Bitmap 類別的新執行個體。

Dim bmp As New Bitmap(PictureBox1.Image)

' 指定影像旋轉的方向和用來翻轉影像的座標軸。

bmp.RotateFlip(RotateFlipType.Rotate180FlipNone) ' 指定不翻轉的180 度旋轉

' Rotate180FlipNone 請參考底下列舉型別設定

PictureBox1.Image = bmp ' 設定PictureBox 顯示Bitmap 影像物件的影像。

End Sub

RotateFlipType 列舉型別 :

成員名稱	說明
Rotate180FlipNone	指定不翻轉的 180 度旋轉。
Rotate180FlipX	指定 180 度旋轉，後面接續水平翻轉。
Rotate180FlipXY	指定 180 度旋轉，後面接續水平和垂直翻轉。
Rotate180FlipY	指定 180 度旋轉，後面接續垂直翻轉。
Rotate270FlipNone	指定不翻轉的 270 度旋轉。
Rotate270FlipX	指定 270 度旋轉，後面接續水平翻轉。
Rotate270FlipXY	指定 270 度旋轉，後面接續水平和垂直翻轉。
Rotate270FlipY	指定 270 度旋轉，後面接續垂直翻轉。
Rotate90FlipNone	指定不翻轉的 90 度旋轉。
Rotate90FlipX	指定 90 度旋轉，後面接續水平翻轉。
Rotate90FlipXY	指定 90 度旋轉，後面接續水平和垂直翻轉。
Rotate90FlipY	指定 90 度旋轉，後面接續垂直翻轉。
RotateNoneFlipNone	指定不旋轉和不翻轉。
RotateNoneFlipX	指定不旋轉，後面接續水平翻轉。
RotateNoneFlipXY	指定不旋轉，後面接續水平和垂直翻轉。
RotateNoneFlipY	指定不旋轉，後面接續垂直翻轉。