[RaggiTech]

الرسم :

بعد ان انشأنا كائننا الخاص للرسم ، يمكننا البدء في رسم خط مستقيم بالشكل التالي مثلاً :

كود :

[FONT=Tahoma]myGraphic.DrawLine(Pens.Blue, 20, 20, 100, 100)[/FONT]

أو مستطيل :

كود :

myGraphic.DrawRectangle(Pens.Blue, New Rectangle(20, 20, 100, 100))

أو رسم منحنى :

كود :

[FONT=Tahoma]myGraphic.DrawBezier(Pens.Blue, 10, 20, 50, 80, 10, 80, 100, 50)[/FONT]

بامكاننا رسم خط مستقيم ولكن باستخدام كائن قلم سبق تعريفه وتحديده بأنه منقط بالشكل التالي مثلاً :
C#:

كود :

[FONT=Tahoma] Graphics myGraphic = e.Graphics;
Pen myPen = new Pen(Color.Blue, 3);
myPen.DashStyle = System.Drawing.Drawing2D.DashStyle.Dot;
myGraphic.DrawLine(myPen, 20, 20, 100, 100);[/FONT]

vb.net:

كود :

[FONT=Tahoma]Dim myGraphic As Graphics = e.Graphics
Dim myPen As New Pen(Color.Blue, 3)
myPen.DashStyle = System.Drawing.Drawing2D.DashStyle.Dot
myGraphic.DrawLine(myPen, 20, 20, 100, 100) [/FONT]

او لرسم مسار من عدة خطوط على شكل مثلث مثلاً :
C#:

كود :

[FONT=Tahoma]GraphicsPath myGraphicPath = new GraphicsPath();
myGraphicPath.StartFigure();

myPath.AddLine(10, 10, 30, 60);
myPath.AddLine(30, 60, 60, 10);
myPath.AddLine(60, 10, 10, 10);

myGraphicPath.CloseFigure();

myGraphic.DrawPath(myPen, myGraphicPath); [/FONT]

vb.net:

كود :

[FONT=Tahoma]Dim myGraphicPath As New GraphicsPath()
myGraphicPath.StartFigure()[/FONT]
[FONT=Tahoma]myPath.AddLine(10, 10, 30, 60)
myPath.AddLine(30, 60, 60, 10)
myPath.AddLine(60, 10, 10, 10)[/FONT]
[FONT=Tahoma]myGraphicPath.CloseFigure()[/FONT]
[FONT=Tahoma]myGraphic.DrawPath(myPen, myGraphicPath)[/FONT]

أو لرسمه ملوناً نغير السطر الأخير ليكون FillPath مع تمرير الفرشاة المناسبة :