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

' 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 列舉型別 :

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