معلومة/Programing GDI+ with VB.NET

اقتباس

سيعتبر أول نقطة هي رأسه العلوي الأيسر و لذلك لن يقبل برسم المربع نحو الأعلى أو رسم مربع خلف النقطة الأولى..

بالنسبة لخطأ رسم المربع خلف النص فانا بعتقد أنه يحب أخذ Sx-Ex بالقيمة المطلقة و بذلك حتى لوكان المستخدم رجع بالمؤشر

للوراء لن يؤثر ذلك على عرض المربع..◘

هل من الممكن التغلب على هذه المشكلة

لحل المشكلة قم بعمل اختبار لقيمة diffX فاذا كانت اقل من صفر اى سالبة يعنى المستخدم رجع بالموؤشر للخلف وعليها بنخلى نقطة الزاوية العليا اليسرى للمربع هى ال x,y وناخذ قيم diffXوdiffY بالقيم المطلقة كما تفضلتم وذلك بالداله Abs التابعة للفئة Math قم بتغيير الكود قبل رسم المستطيل بهذا

  Case 3

                    ' Draw a rectangle
if diffX <0 Thin

         curGraphics.DrawRectangle(curPen, X, Y,Math.Abs( diffX),Math.Abs

( diffY)) 
EndIf   
       curGraphics.DrawRectangle(curPen, curX, curY, diffX, diffY)

قم بكتابة نفس الكود مكان كل الاكواد المسؤلة عن رسم المستطيل

مقال للاخ رغيد الطيب (تلميحات لتحسين الاداء الرسومي)

وهو من موقع www.vb4arab.com على ما اعتقد

مقال جميل جدا احب انقله للفائده

بعد ان لمس معظمنا امكانيات الدوت نت في مجال الرسوميات بدأت بعض المعاناه من مشاكل الوميض المستمر للكائنات التي يتم اعادة رسمها بشكل سريع ... و هو ما كنا نتخلص منه في الإصدار السابق بواسطة الخاصية AutoRedraw و التي لم تعد موجودة ... تجد هنا فئة بسيطة تعيد لك هذة الخاصية من جديد ! لتستمع مع رسوميات بدون اي وميض او اهتزاز ..

لا يخفى على مجرب ان الامكانيات الرسومية في الـ Visual Basic .NET قد تحسنت كثيراً و اضيفت اليها امكانيات كبيرة ... وهذة الاضافات و الامكانيات اضافت شيئاً من التعقيد على الكيفية التي يتم فيها رسم الكائنات برمجياً ... فلم يعد بالامكان رسم خط مثلاً بواسطة الأمر Line فقط كما كان في السابق بل اصبح من الضروري انشاء قلم للرسم اولاً ( Pen ) او استخدام احد الاقلام الأفتراضية ( Pens ) ثم انشاء كائن رسم Graphics و بعد ذلك الرسم عليه باستخدام الطريقة DrawLine !

و جميع ما سبق ليس بالأمر الصعب ابداً اذا اعتدت عليه و لكن تبقى هناك مشكلة و هي مشكلة الوميض خاصة عند رسم الشكل عدة مرات ... مثلاً عندما تثوم برسم كائن متحرك على الفورم ( مثل سيارة او طائرة ) وعملية التحريك تستلزم مسح و إعادة رسم الكائن في موضع جديد كل فترة زمنية معينة لتعطي المستخدم الاحساس بأن الكائن يتحرك فعلاً ...

فانك ستلاحظ ان عملية الرسم هذه تظهر فيها شيئاً من الوميض اي انها تبدو مهزوزة نظراً لتكرار عملية الرسم و المسح لعدة مرات في الثانية ...

في الاصدار Visual Basic 6 كنا نستخدم الخاصية AutoRedraw كي نجعل الرسم يبدو مستقراً ... اما في الاصدار الجديد لم اعد ارى ان هذه الخاصية متوفرة على الرغم من اهميتها ! ...

لهذا قمت بتصميم فئة بسيطة Class بإسم myGraphicsBuffer ...

يمكنك بسهولة ان تعرف من إسم هذة الفئة انها تعمل كمخزن (Buffer) مؤقت لعملية الرسم بحيث يتم رسم الكائنات عليها ثم بعد ذلك عكس النتائج للمستخدم ....

خذ مثلاً اذا اردت رسم دائرة مملوئة باللون الاحمر على الفورم فانك سوف تكتب التالي :

Dim g As Graphics

g = Me.CreateGraphics

g.FillEllipse(Brushes.Red, 20, 20, 30, 30)
g.DrawEllipse(Pens.Black, 20, 20, 30, 30)

حيث انشئنا اولاً كائن من النوع Graphics تابع للفورم (Me) للرسم عليه ثم قمنا بملئ مساحة معينة من الفورم تبدأ عن النقطة (20,20) بفرشاه حمراء اللون (Brushes.red) وبعد ذلك اخطنا هذه المساحة الدائرية بخط اسود اللون (Pens.Black) باستخدام الطريقة DrawEllipse الخاصة برسم الكائنات الدائرية ...

طبعا السابق كان سهلاً جداً و لكن تكرار العملية بشكل سريع سوف يجعل طريقة الرسم تبدو مهزوزة خاصة اذا قمت بمسح الرسم كل فترة وفترة ...

لكي نستخدم الفئة myGraphicsBuffer لنفس الغرض السابق نقوم بالتالي :

Dim g As myGraphicsBuffer

g = New myGraphicsBuffer(Me.CreateGraphics, Me.Width, Me.Height)

g.Graphics.FillEllipse(Brushes.Red, 20, 20, 30, 30)
g.Graphics.DrawEllipse(Pens.Black, 20, 20, 30, 30)

g.Flush()

حيث تم تعريف المتغير g بانه كائن من النوع myGraphicsBuffer يلي ذلك إنشاء نسخة جديدة منه بطول وعرض الفورم التي سيتم عليها الرسم ثم بعد ذلك القيام بالرسم بالطريقة العادية للكائن Graphics الذي اعتدنا عليه ... يبقى في الاخير ان نقوم بعكس الرسم على الفورم باستخدام الطريقة Flush ...

و الان سوف نتعمق قليلاً في الفئة الجديدة التي تحتوي على متغيرين من النوع Private هما :

Private mBitmap As Bitmap
Private mGrphic As Graphics

لاول سوف نستخدمه لإنشاء صورة Bitmap موقتة في الذاكرة للقيام بالرسم عليها و المتغير الثاني من النوع Graphics و الذي يمثل الكائن الاصلي ( هدف عملية الرسم ) الذي نريد الرسم عليه ..

يلي ذلك تعريف الخصائص التابفة لفئتنا الجديدة والتي تحتوي على ثلاثة خصائص كما في التالي :

Private pWidth As Integer
ReadOnly Property Width() As Integer
Get
Return pWidth
End Get
End Property

Private pHeight As Integer
ReadOnly Property Height() As Integer
Get
Return pHeight
End Get
End Property

Private pGraphics As Graphics
ReadOnly Property Graphics() As Graphics
Get
Return pGraphics
End Get
End Property

الخواص Height و Width هما لمعرفة عرض و ارتفاع الكائن الرسومي ..

بينما الخاصية Graphics فهي التي سيقوم المستخدم باستخدامها من خارج الفئة للرسم عليها كما يحلو له ( و جميع عمليات الرسم التي سيقوم بها لن تظهر مباشرة لانها تقوم بالرسم على الصورة mBitmap التي في الذاكرة الى ان يتم استدعاء الطريقة Flush ) ...

عند إنشاء كائن جديد من فئتنا فانك بحاجة الى تمرير ثلاث مدخلات الاول هو الكائن الذي تريد الرسم عليه و الثاني هو عرض منقطة الرسم و الاخير هو ارتفاع تلك المنقطة :

Sub New(ByVal g As Graphics, ByVal Width As Integer, ByVal Height As Integer)

pWidth = Width
pHeight = Height

mGrphic = g
mBitmap = New Bitmap(Width, Height, mGrphic)
pGraphics = Graphics.FromImage(mBitmap)

End Sub

لاحط انه في البداية يتم تخزين الطول و العرض في متغيرات خاصة داخل الفئة هما pWidth و pHeight اختصاراً لـ Private Width و Private Height ...

يلي ذلك ايضاً تخزين الكائن الذي نريد الرسم عليه في المتغير mGraphic الذي عرفناه في البداية ..

وبعدها نقوم بانشاء صورة جديدة New Bitamp في الذاكر بطول وعرض منقطة الرسم ومتوافقة مع الكائن الذي نريد الرسم عليه mGrphic ...

ولاننا نريد ان نقوم بالرسم على هذة الصورة .. فاننا ننشىء كائن للرسم Graphics يعتمد على الصورة التي في الذاكرة ونخزنه في المتغير pGraphics ...

و الان اذا قام المستخدم من خاج الفئة بالرسم على الكائن pGraphics فان عملية الرسم هذة سوف تتم الصورة التي في الذاكرة mBitmap و ليس على منقظة الرسم مباشرة mGrphic وهذا هو سبب عدم ظهور الرسومات مباشرة ...

وبعد ان يقوم المستخدم بانها عملية الرسم كلها على الـ mBitmap يمكنه ان يعكس هذة الرسومات على منطقة الرسم الاصلية باستخدام الطريقة Flush كالتالي :

Sub Flush()
mGrphic.DrawImage(mBitmap, 0, 0)
End Sub

ووظيفتها فقط هي رسم الصورة التي في الذاكرة mBitmap على منطقة الرسم mGrphic مباشرة ..

اذا سئل احدنا ما السر في ان هذة العملية قامت بالتخلص من الوميض فان الاجابة تكمن في انه لم قام احدنا مثلاً باستخدام الكائن Graphics لرسم 300 خط مثلاً على الفروم فأن عملية الرسم هذة ستتم خطاً بعد خط وذها كله امام عيني المستخدم و على الرغم من ان العملية هي عملية سريعة إلا انها ستسبب شيئاً من عدم الاستقرار لان المستخدم حينها سيرى امامه 300 عملية رسم !

و لكن باستخدام الفئة تتم كل عميات الرسم على كائن وجود في الذاكرة هو mBitmap و بالتالي لا يرى المستخدم منه شيء وبعد انتهاء الـ 300 عملية رسم يتم فقط عكس الناتج على الفورم باستخدام Flush وبالتالي فان المستخدم هنا لايرى إلا عملية رسم واحدة و هنا بيت قصيد ...

فمهما كانت عمليات الرسم سيى المستخدم عملية واحدة وفي هذة العلية تظهر الرسمة مرة واحدة وبشكل كامل فلا يتنج اي اهتزاز من جراء رسم الخطوط بتتابع امام عينيه ...

شفرة الفئة كاملة هي :

Public Class myGraphicsBuffer
Private mBitmap As Bitmap
Private mGrphic As Graphics

Private pWidth As Integer
ReadOnly Property Width() As Integer
Get
Return pWidth
End Get
End Property

Private pHeight As Integer
ReadOnly Property Height() As Integer
Get
Return pHeight
End Get
End Property

Private pGraphics As Graphics
ReadOnly Property Graphics() As Graphics
Get
Return pGraphics
End Get
End Property

Sub New(ByVal g As Graphics, ByVal Width As Integer, ByVal Height As Integer)

pWidth = Width
pHeight = Height

mGrphic = g
mBitmap = New Bitmap(Width, Height, mGrphic)
pGraphics = Graphics.FromImage(mBitmap)

End Sub

Sub Flush()
mGrphic.DrawImage(mBitmap, 0, 0)
End Sub

Sub Dispose()
mBitmap.Dispose()
mGrphic.Dispose()
End Sub

Protected Overrides Sub Finalize()
Me.Dispose()
MyBase.Finalize()
End Sub
End Class

بسم الله الرحمن الرحيم

السلام عليكم و رحمة الله و بركاته

شكرا اخي العزيز سولو على الموضوع الرائع و ربما انا مثلك وعزيزي إياس منجذب كثيرا الى المواضيع الرسومية و ما يتعلق بها

وهذا رابط المقال سابق الذكر مع الملفات المرفقة كمثال :

http://www.dev4arabs.com/vb/ShowRecord.asp...=Article&Id=862

السلام عليكم و رحمة الله وبركاته

اخى العزيز رغيد الطيب

شرفت الموضوع بزيارتك له وقله قليلة من هم مهتمين بمواضيع الرسم

ومشكور على الرابط جزاك الل خيرا

اهلا و سهلا بكم..

أنا حاليا سأتغاضى عن موضوع الرسمو بسبب الدراسة مع العودة له لاحقا بشكل معمق جدا :lol:

مجهود تستحق الثناء عليه

ماشاء الله عليك اخوي SOLO.NET

صراحه عكفت على امثلتك التي وضعتها في هذا الموضوع

وكل يوم اطلع عليها وكل مره استفيد معلومه

واقولك انك استاذ متمكن اسال الله ان يزيدك علما ويخليك لنا ذخر

فاسال الله ان يجزيك الخير وان يخلف تعبك راحة في دار كرامته ويجمعنا واياك فيها

شكراً لك فعلاً موضوع مهم و شرح جميل

ولكن أتمنى عليك أن تتطرق لموضوع رسم مستطيل دائري الحواف

لقد حاولت كثيراً و لم أجد طريقة لهذا الموضوع

أرجو الرد ممن يعرف شيء حول هذا الموضوع

جزاك الله كل خير اخ SOLO.NET

ممكن سوال كيف لي ان اعرف مكان صوره صغير في اخري كبير اجاد مكنها

جزاك الله كل الخير

up

اخى KARIMSOFT لو كان سؤالك موجه لى فانا لا اعرف

آخ خخخخخخخخخخخخخخخخخخخخخخخخ ..

يا أستاذ عبد الخالق ... كم يجب علينا شكرك .. الله يعطيك العافية .

أنا كنت أتابع السلسلة باهتمام ..

و أتمنى عليك أن تكملها حتى آخرها .. فأنت جدير بإكمالها :)