rotate image by any angle

The solution for “rotate image by any angle” can be found here. The following code will assist you in solving the problem.

Public Class Form1

Dim wiggle As Bitmap
Dim tim As Timer

Sub MoveWiggle(sender As Object, e As EventArgs)
Static rot As Integer = 0

Using g = Panel1.CreateGraphics()
Using fnt As New Font(“Consolas”, 12), brsh As New SolidBrush(Color.Red)
‘ the text will not be rotated or translated
g.DrawString($”{rot}°”, fnt, brsh, New Point(10, 10))
End Using
‘ the image will be rotated and translated
g.TranslateTransform(100, 100)
g.DrawImage(wiggle, -80, 0)
End Using

rot = (rot + 10) Mod 360

End Sub

Private Sub bnPause_Click(sender As Object, e As EventArgs) Handles bnPause.Click
Static isPaused As Boolean = False
If isPaused Then
bnPause.Text = “Pause”
bnPause.Text = “Start”
End If

isPaused = Not isPaused

End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
wiggle = New Bitmap(“C:\temp\path3494.png”)
wiggle.SetResolution(96, 96) ‘ my image had a strange resolution
tim = New Timer With {.Interval = 50}
AddHandler tim.Tick, AddressOf MoveWiggle

End Sub

Private Sub Form1_Closing(sender As Object, e As EventArgs) Handles MyBase.Closing
RemoveHandler tim.Tick, AddressOf MoveWiggle

End Sub

End Class

Thank you for using DeclareCode; We hope you were able to resolve the issue.

More questions on [categories-list]

Similar Posts