چرخش عکس

[gilsoft]

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

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

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

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

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