Question Rotating a hand written text in a picturebox

brol0001

New member
Joined
Sep 7, 2013
Messages
1
Programming Experience
1-3
I need to rotate the image of an in a picturebox hand written text (written by the mouse or a pen on a tablet).
I use the code below to record the text.
Thanks in advance.

Public ClassForm1
Private _Previous As System.Nullable(OfPoint) = Nothing
Private grxp AsGraphics
Private ink AsPen = NewPen(Color.MidnightBlue, 1)
Dim NewCurP AsPoint
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
grxp = PictureBox1.CreateGraphics
grxp.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
Me.DoubleBuffered = True
EndSub
PrivateSub pictureBox1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
IfNot e.Button = MouseButtons.Left ThenExit Sub
grxp.DrawLine(ink, NewCurP, e.Location)
NewCurP = e.Location
EndSub
PrivateSub pictureBox1_MouseDown(sender AsObject, e AsMouseEventArgs) Handles PictureBox1.MouseDown
NewCurP = e.Location
EndSub
PrivateSub Button1_Click(sender AsObject, e AsMouseEventArgs) Handles Button1.Click
grxp.Clear(Color.White)
EndSub
End Class





 
Back
Top