Public Class 圖片放大視窗 Private Sub 圖片放大視窗_Load(sender As Object, e As EventArgs) Handles MyBase.Load PictureBox1.Image = 圖片傳遞 : PictureBox1.SizeMode = 4 End Sub Private Sub 順時鐘90度旋轉_bt_Click(sender As Object, e As EventArgs) Handles 順時鐘90度旋轉_bt.Click PictureBox1.Image.RotateFlip(RotateFlipType.Rotate90FlipNone) : PictureBox1.Refresh() : PictureBox1.SizeMode = 4 End Sub Private Sub 逆時鐘90度旋轉_bt_Click(sender As Object, e As EventArgs) Handles 逆時鐘90度旋轉_bt.Click PictureBox1.Image.RotateFlip(RotateFlipType.Rotate270FlipNone) : PictureBox1.Refresh() : PictureBox1.SizeMode = 4 End Sub Private Sub 水平翻轉_bt_Click(sender As Object, e As EventArgs) Handles 水平翻轉_bt.Click PictureBox1.Image.RotateFlip(RotateFlipType.Rotate180FlipY) : PictureBox1.Refresh() : PictureBox1.SizeMode = 4 End Sub Private Sub 垂直翻轉_bt_Click(sender As Object, e As EventArgs) Handles 垂直翻轉_bt.Click PictureBox1.Image.RotateFlip(RotateFlipType.Rotate180FlipX) : PictureBox1.Refresh() : PictureBox1.SizeMode = 4 End Sub End Class