' 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

指定不旋轉,後面接續垂直翻轉。

 

資料來源:http://www.dotblogs.com.tw/PowerHammer/archive/2008/03/24/2149.aspx#3205

創作者介紹

歡迎~ 程式設計 學生 作業 專題製作 程式外包 家教...

goodlucky 發表在 痞客邦 PIXNET 留言(0) 人氣()