GF00-ERP-SYS-LEEHSIEHJUI/GF00-ERP-SYS/10.背景程式與對話視窗/圖片放大視窗.vb

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