الكلاس التائه بين +gdi و الويندوز فورم Form

صفات الكلاس

و بالرغم أن الأوامر واضحة جدا لكن بعضها قد يوحي بالغموض أو عدم الوضوح أحيانا وعلي سبيل المثال CaptionButton لا يرسم باتون تحديدا ولكنه يرسم أشياء مثل Minimize, Close, Restore, Help Boxes أي باتون مثل التي نجدها دائما في أي فورم في الجزء الأيمن العلوي تحديدا وهي مفاتيح لإغلاق الفورم أو تكبيره الي أخره

في الواقع إن استخدام هذا الكلاس قد يوفر ساعات كثيرة من العمل باستخدام +GDI مثلا لو أردنا أن نرسم باتون بشكل معين فان ذلك قد يأخذ وقتا بالطريقة العادية لكن باستخدام هذا الكلاس فان ذلك قد يتم باستخدام اسطر قليله جدا من الكود

مثال علي ذلك لو أردنا رسم راديو باتون فان ذلك يتم بسطر واحد فقط وهو كالأتي

 
   ControlPaint.DrawRadioButton(e.Graphics, New Rectangle(20, 20, 15, 15),	  ButtonState.Normal)

لكن يجب الوضع في الاعتبار شئ مهم جدا أن هذا الكلاس يرسم فقط الكونترول المطلوب لكن علي المبرمج طبعا إضافة أوامر أخري لكي يظهر الكونترول بالشكل المطلوب مثال علي ذلك الكلاس يرسم الباتون لكن المبرمج يجب أن يتعامل مع الكود لكي يظهر الباتون في حالاته المختلفة مثل Normal State, Pushed Stat وذلك عندما يقوم المستخدم بتمرير الماوس مثلا علي الكونترول

هناك شئ مهم جدا قد يربك المبرمج الذي قد يتعامل لأول مره مع هذا الكلاس حيث أن احدي الطرق الموجودة داخل هذا الكلاس وهي تحديدا DrawSelectionFrame وهذه الطريقة تستخدم بالشكل التالي

 
   ControlPaint.DrawSelectionFrame(Graphics, active, outsideRect, insideRect, backColor)

بعض الكتب تقول أن هذا الكود فيه خطا وأن شركة ميكروسوفت قد قامت بعكس الكود ربما هذا صحيح لا اعلم في الواقع عموما البعض يقول أن الطريقة الصحيحة لاستخدام الكود تتم بالشكل التالي أي أن ميكروسوفت قد قامت بعكس وضعية المستطيل كما هوا واضح بالمقارنة بين الكود اعلاه والكود التالي

 
   ControlPaint.DrawSelectionFrame(Graphics, active, insideRect, outsideRect, backColor)

يبقي السؤال هل ميكروسوفت ارتكبت خطا ما ؟ ربما هذا صحيح لكن الحقيقة إن خطأ ميكروسوفت في رأيي الشخصي أنها لا تعطي الشرح الكافي للكونترول ودائما لديهم خلل في ملفات المساعدة Help المرفقة مع الفيجوال استوديو تحديدا ولذلك نجد أن هناك الكثير والكثير من الكلاس لا يوجد لها توضيح كافي وخاصة للمبتدئين وبالتالي يتحول الامر الي علامة استفهام كبيره جدا ومن هنا قامت ميكروسوفت بابتكار MSDN وهم يقومون بتطويرها بشكل مستمر لكن للأسف مازالت نفس علامة الاستفهام موجودة حيث أن MSDN أيضا لا تعطي التوضيح الكافي للكثير من الأشياء.

أيضا هناك شئ يعتبر مفاجاه في هذا الكلاس مثلا لو حاولنا رسم بعض العناصر في الفورم مباشرة سيحدث خلل وبعض الرسومات سوف يتم رسمها مباشرة الي Desktop أي خارج حدود الفورم ولتوضيح ذلك إليكم المثال التالي

قم بفتح مشروع جديد وأضف إليه الكود التالي وانظر جيدا الي أقصي يسار الشاشة ستكتشف أن الكلاس قد قام برسم المطلوب ولكن علي Desktop مباشرة أي خارج حدود الفورم بشكل ما

لكن لو تم توظيف هذه الأوامر جيدا أي لو ربطنا بعض الأوامر بحركة الماوس داخل الفورم تحديدا فان الرسم سوف يتم داخل المكان المطلوب حيثما نريد

	Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
		   MyBase.OnPaint(e)

		   Dim theRectangle As New Rectangle(New Point(0, 0), New Size(200, 200))
		   ControlPaint.DrawReversibleFrame(theRectangle, Me.BackColor, _
			   FrameStyle.Dashed)
		   Dim p1 As New Point(0, 0)
		   Dim p2 As New Point(150, 10)
		   ControlPaint.DrawReversibleLine(p1, p2, Me.BackColor)

   End Sub

أيضا هناك ملحوظه أخيره أود فقط أن أوضحها للقارئ وما بهمنا هنا لنتحدث عنه هو كلمتان محددتان وهما Overloads وأيضا Overrides

الكلمة Overloads تستخدم مع Property أو Procedure معين وهي تسمح لنا بتخليق وتعريف Property معينه أو Procedure معين باستخدام نفس الاسم الموجود داخل أي كلاس ولكن بثوابت مختلفة.

الكلمة Overrides وهي ببساطه تستخدم عندما نريد أن تتخطي أو نهيمن علي شئ معين داخل الكلاس مثل Properties أو Procedures

طبعا سوف نستخدم هذان الكلمتان كثيرا طالما نحن نريد بناء كونترول لها مواصفات مختلفة أو عند إضافة مواصفات للكونترول الموجودة مع الفيجوال استوديو

عموما لكي يصل المعني اعلاه للقارئ سوف نعطي مثالا لتوضيح الامر بسرعة

مثال توضيحي علي ذلك الباتون كلاس يوجد به علي سبيل المثال لا الحصر الطرق التالية.

 OnMouseEnter

 OnMouseLeave

 OnMouseUp

 OnMouseDown

وكل طريقه تحمل صفات خاصة بها فإذا أردنا أن تتخطي أو نغير شئ معين لأحدي هذه الطرق ولكن مع الاحتفاظ بنفس الاسم فان ذلك يتم باستخدام الكود بالشكل الأتي

 
   Protected Overloads Overrides Sub OnMouseDown(ByVal e As MouseEventArgs)
		   ' هنا نضييف او نكتب الكود الذي نريده
		   MyBase.OnMouseDown(e)
	   End Sub

الأن وما يهمنا هنا علي وجه الخصوص هو كيف نستخدم هذا الكلاس بشكل عملي ولكي نري أهمية هذا الكلاس لذلك سوف نقوم بتصميم باتون وهو أسهل الأشياء لتوضيح خصائص هذا الكلاس

تصميم الباتون Button

بخصوص إنشاء Button الامر يتم كالأتي

أولا: نفتح مشروع جديد وليكن اسمه Control_Paint_Example_01 ثم نضيف كلاس Class بأي اسم مناسب وليكن مثلا Private Class ButtonExample وذلك يتم من قائمة Project ثم استخدام Add Class…

إذن الكود سيكون كالأتي

 Private Class ButtonExample

   End class

ثانيا: نضيف للكلاس باتون Button عن طريق استخدام الوراثة Inherits ثم نضيف أيضا تعريف لحالة الباتون ButtonState

فيصيح الكود كالتالي

 Public Class ButtonExample

	   Inherits Button
   Private state As ButtonState

   End Class

بعد ذلك نقوم بعمل Overloads & Overrides لحركة الماوس وهي MouseUP & MouseDown وأيضا نقوم بعمل Overloads & Overrides ونقوم برسم الباتون في OnPaint فيصبح الكود بالشكل التالي

 Public Class ButtonExample

	   Inherits Button
	   Private state As ButtonState

	   Protected Overloads Overrides Sub OnMouseDown(ByVal e As MouseEventArgs)
		   state = ButtonState.Pushed
		   MyBase.OnMouseDown(e)
	   End Sub

	   Protected Overloads Overrides Sub OnMouseUp(ByVal e As MouseEventArgs)
		   state = ButtonState.Normal
		   MyBase.OnMouseUp(e)
	   End Sub

	   Protected Overloads Overrides Sub OnPaint(ByVal e As PaintEventArgs)
		   MyBase.OnPaint(e)
		   System.Windows.Forms.ControlPaint.DrawComboButton(e.Graphics, 0, 0, Width, Height, state)
	   End Sub


   End Class

نلاحظ أننا قد قمنا برسم الباتون في حالة OnPaint فقط وأننا قد قمنا برسم ComboButton أما في حالة MouseUp & MouseDown قمنا بتعيير حالة الباتون ButtonState فقط لا غير ألان لا يتبقي إلا أن نضيف لهذا الكلاس شئ واحد ألا وهو Sub New وذلك لكي نقوم بعمل ضبط لخاصية ٍ للكونترول SetStyle فيصبح الكود النهائي للكلاس بالشكل التالي وهنا سنلاحظ أن الكود غباره عن مجموعه من الأسطر القليلة أي أننا قد قمنا بتصميم الباتون بأسهل الطرق وبسرعة جدا

 Public Class ButtonExample

	   Inherits Button
	   Private state As ButtonState

	   Public Sub New()
		   SetStyle(ControlStyles.UserPaint, True)
		   SetStyle(ControlStyles.DoubleBuffer, True)

		   SetStyle(ControlStyles.AllPaintingInWmPaint, True)
	   End Sub

	   Protected Overloads Overrides Sub OnMouseDown(ByVal e As MouseEventArgs)
		   state = ButtonState.Pushed
		   MyBase.OnMouseDown(e)
	   End Sub

	   Protected Overloads Overrides Sub OnMouseUp(ByVal e As MouseEventArgs)
		   state = ButtonState.Normal
		   MyBase.OnMouseUp(e)
	   End Sub

	   Protected Overloads Overrides Sub OnPaint(ByVal e As PaintEventArgs)
		   MyBase.OnPaint(e)
		   System.Windows.Forms.ControlPaint.DrawComboButton(e.Graphics, 0, 0, Width, Height, state)
	   End Sub


   End Class

ألان لا يتبقي إلا إن نضيف هذا الباتون الذي قمنا بتصميمه الي الفورم لكي يعمل بشكل جيد وذلك سيتم بسهوله جدا كل ما علينا عمله أن نقوم بعمل Build للكنترول وذلك يتم من قائمة Build ثم أخر شئ لو أننا فتحنا الفورم في وضعية التصميم سنري أن الكلاس الذي قمنا بتصميمه موجود في ToolBox وكل ما علينا هو سحبه وإضافته الي الفورم ثم إضافة الكود الذي نراه مناسبا لهذا الباتون وليكن مثلا إغلاق البرنامج وذلك يتم بعمل DoubleClick علي الباتون الذي أضفناه للفورم رقم 1 وبذلك يكون الكود كالتالي

 Public Class Form1


	   Private Sub ButtonExample1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonExample1.Click

		   Application.Exit()

	   End Sub

   End Class

بالتوفيق

أخوكم عمر