Your technology certification is waiting. Enroll in Cloud Class ®
Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
Static ang As Integer = 0
Dim W As Integer = My.Resources.ALANS_DIAL.Width
Dim H As Integer = My.Resources.ALANS_DIAL.Height
Dim gr As Graphics = e.Graphics
Dim m As Matrix = New Matrix
m.Translate(PictureBox1.Width \ 2, PictureBox1.Height \ 2)
m.RotateAt(ang, New Point(0, 0))
gr.Transform = m
gr.DrawImage(My.Resources.ALANS_DIAL, New Point(-W \ 2, -H \ 2))
ang = (ang + 25) Mod 360
Open in new window
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
This course will teach participants about installing and configuring Python, syntax, importing, statements, types, strings, booleans, files, lists, tuples, comprehensions, functions, and classes.