8 Windows Form to open and view images with rotate features

8 Windows Form to open and view images with rotate features

  00:23    Aakash sen

---

 

Public Class Form1

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

        Dim rotate As Image = New Bitmap(PictureBox1.Image)

        rotate.RotateFlip(RotateFlipType.Rotate90FlipNone)

        PictureBox1.Image = rotate

    End Sub

 

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Dim rotate As Image = New Bitmap(PictureBox1.Image)

        rotate.RotateFlip(RotateFlipType.Rotate270FlipNone)

        PictureBox1.Image = rotate

    End Sub

 

 

End Class