Reset Matrix Class no working

[nico-las]

I'm no native english speaker. I want to draw first figure rotated y second one, no. when I run code doesn't show first one and second one is rotated. reset is not working. No change order figures, it´s necesary draw them so.

````````````
Private Sub Form17_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Dim x, y As Integer
e.Graphics.SmoothingMode = SmoothingMode.HighQuality
'Figure 1
Dim Mx As Matrix = New Matrix()
x = 59 : y = 25
Mx.RotateAt(90, New Point(x, y), MatrixOrder.Append)
e.Graphics.Transform = Mx
e.Graphics.DrawEllipse(New Pen(Color.Green, 1), New Rectangle(x + 3, y - 5, 10, 10))
e.Graphics.DrawLine(New Pen(Color.Green, 1), x, y - 2, x + 13, y - 2)
e.Graphics.DrawLine(New Pen(Color.Green, 1), x, y + 2, x + 13, y + 2)
e.Graphics.DrawLine(New Pen(Color.Green, 1), x + 8, y - 5, x + 8, y + 5)
Mx.Reset()
'Figura 2
e.Graphics.DrawEllipse(New Pen(Color.Blue, 1), New Rectangle(x + 3, y - 5, 10, 10))
e.Graphics.DrawLine(New Pen(Color.Blue, 1), x, y - 2, x + 13, y - 2)
e.Graphics.DrawLine(New Pen(Color.Blue, 1), x, y + 2, x + 13, y + 2)
e.Graphics.DrawLine(New Pen(Color.Blue, 1), x + 8, y - 5, x + 8, y + 5)
End Sub

````````````
what's wrong.........

thanks in advance


Nikolas

 

[IRstuff]

Is this for school? Perhaps you should ask your instructor?

TTFN (ta ta for now)
I can do absolutely anything. I'm an expert!

https://www.youtube.com/watch?v=BKorP55Aqvg

faq731-376 forum1529 Entire Forum list

http://www.eng-tips.com/forumlist.cfm

 

[rotw]

Hi, this is another non English native speaker. I think I got your question, but I do not understand why you cannot start with the figure non rotated and then append the rotated one. Seems to me the more logical order? If its a problem, then set the rotated (second figure) as the reference and declare it first, you will rotate -90 degree on second step.

Anyway, I experienced issues with drawing refresh sometime ago.
So I used to draw inside panel, like this below, see if this can help you

Private Sub Panel1_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint
Dim myGraphics As Graphics = Panel1.CreateGraphics
Dim origin_y As Integer
Dim X_STEP, Y_STEP, X_STEP0 As Integer
Dim Zd As Integer
Dim MYPEN2 As Pen
'example
....

MYPEN2 = New Pen(Drawing.Color.Blue, 1)
MYPEN2.DashStyle = Drawing.Drawing2D.DashStyle.Solid

myGraphics.DrawLine(MYPEN2, X_STEP0, origin_y - Y_STEP - Zd, X_STEP, origin_y - Y_STEP - Zd)

....
End Sub