چرخش عکس

چرخش عکس به دور خود؟

نقل قول:

---

نوشته شده توسط pouya9111

چرخش عکس به دور خود؟

---

سلام دوست عزیز

اینم کد چرخش عکس:

Imports System.Drawing.Drawing2D



Public Class Form1

    Dim gr As Graphics

    Dim mat As New Matrix

    Dim im As Image





    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        gr = Me.CreateGraphics

        im = Image.FromFile("C:\Users\Public\Pictures\Sample Pictures\Penguins.jpg")

    End Sub





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

        mat.RotateAt(30, New Point(150, 150))

        gr.Transform = mat

        ReDrawImage()

    End Sub





    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint

        ReDrawImage()

    End Sub





    Sub ReDrawImage()

        gr.Clear(Color.Wheat)

        gr.DrawImage(im, 100, 100, 100, 100)

    End Sub

End Class

موفق باشیذ .....

اینم یه مدل دیگه:

    Dim img As New Bitmap("C:\Users\Public\Pictures\Sample Pictures\Penguins.jpg")

    Dim iAngel As Integer = 0





    Private Sub Form_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        PictureBox1.BackColor = Color.Black

        PictureBox1.SizeMode = PictureBoxSizeMode.Zoom

        PictureBox1.Image = RotateImg(img, Convert.ToSingle(iAngel))

        Button2.Text = "<" : Button3.Text = ">"

    End Sub

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

        iAngel -= 30 : If iAngel < 0 Then iAngel = 330

        PictureBox1.Image = RotateImg(img, Convert.ToSingle(iAngel))

    End Sub





    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click

        iAngel += 30 : If iAngel > 360 Then iAngel = 30

        PictureBox1.Image = RotateImg(img, Convert.ToSingle(iAngel))

    End Sub



Public Function RotateImg(ByVal bmpimage As Bitmap, ByVal angle As Single) As Bitmap

        Dim w As Integer = bmpimage.Width

        Dim h As Integer = bmpimage.Height

        Dim pf As System.Drawing.Imaging.PixelFormat = Nothing

        pf = bmpimage.PixelFormat

        Dim tempImg As New Bitmap(w, h, pf)

        Dim g As Graphics = Graphics.FromImage(tempImg)

        g.DrawImageUnscaled(bmpimage, 1, 1)

        g.Dispose()

        Dim path As New GraphicsPath()

        path.AddRectangle(New RectangleF(0.0F, 0.0F, w, h))

        Dim mtrx As New Matrix()



        mtrx.Rotate(angle)

        Dim rct As RectangleF = path.GetBounds(mtrx)

        Dim newImg As New Bitmap(Convert.ToInt32(rct.Width), Convert.ToInt32(rct.Height), pf)

        g = Graphics.FromImage(newImg)

        g.TranslateTransform(-rct.X, -rct.Y)

        g.RotateTransform(angle)

        g.InterpolationMode = InterpolationMode.HighQualityBilinear

        g.DrawImageUnscaled(tempImg, 0, 0)

        g.Dispose()

        tempImg.Dispose()

        Return newImg

    End Function

موفق باشید .....