Search VB 2010

Saturday, April 30, 2011

OOP VB .Net Toturials and Examples - دروس فى ال أو أو بى

بدأنا مشروع تطوير الــ TextBox

أولا : تغيير اسم الاداه من UserControl1 الى MyNewTxtBx

صورة رقم 46

صورة رقم 47

نتوجه الى شاشة كود UserControl1 فى السطر الاول Public Class UserControl1 و نغيره الى MyNewTxtBx أو أى أسم ترغب به كما بالصورتين 46 و 47
و نقوم بعمل Build و تجربة المشروع و ستلاحظ أن الاسم الموجود بالـ ToolBox تغير الى الاسم الجديد .
انتهــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــى
ثانيا : تغيير شكل الايقونه الى ايقونة خاصه
هذا هو شكل الايقونه التى نستخدمها و هى تعطى لأى أداه جديده مصنوعه عن طريق المبرمج (نحن) و هى صورة الترس الازرق و لكن شكل ايقونة الـ TextBox مختلف و يدل على أنه TextBox و نريد كما اتفقنا على جعل الاداه قويه وفعاله و بالتالى يجب الاهتمام بالتصميم و لكى نقوم بتغيير الايقونه سنستخدم Attributes أو مواصفات.
و يجب أن نحدد ما اذا كنا سنستخدم شكل ايقونة الـ TextBox المتعارف عليها أو أيقونه جديده و لكن احذر من استخدام ايقونه ملك شخص أخر أو شركة أخرى فمن الممكن جدا أن تلقى الاداه رواج فى سوق العمل و تجد نفسك أمام مسائلات أنت فى غنى عنها من شركة ماكله للايقونه لذا من الافضل و المستحب و الأأمن أن تصنع لنفسك أيقونات .
بداية فى شاشة الكود الخاص بـ MyNewTxtBx قبل بداية الاكواد نكتب
Imports System.CompnentModel
و هو استدعاء لمكتبة الـ ComponentModel

صورة رقم 48

ثم الـ Attributes كالتالى كما بالصورة رقم 48 مع ملاحظة ان الاتى سيكون لتغيير شكل الايقونه الى شكل يقونة الـ TextBox المتعارف عليها ..... و الان قم بعمل Build و اذهب الى الـ ToolBox ثم Choose Item و احذف العلامه بجوار الـ MyNewTxtBx القديمة ثم Ok تلاحظ أنها اختفت و بالتالى احذفها من على الـForm احفظ المشروع ثم افتح الـ Form مرة أخرى و توجه الى الـ ToolBox ثم Choose Item ثم Browse ثم الفولدر Bin/Debug و اختار الاداه و لاحظ تغير شكل الايقونه كما بالصورة رقم 49 .
صورة رقم 49

و الى هنا نكون قد انتهينا من درس من أهم دروس البرمجه و هو صناعة الاكواد و الاداوات عن طريق فهم OOP أو Object Oriented Programming ....
ملحوظه أخيره : سيقابلك بالتأكيد وقفات فى التنفيذ و أخطاء غير مذكورة فى الشرح و ذلك لأنها تختلف من مبرمج الى أخر و تكون بديهيات و اخطاء لا تذكر, فقط اكتب تعليق بالمشكله و ان شاء الله فى أقرب وقت يكون لديك الحل .ويمكنك دائما البحث فى الجوجل عن (evry1falls) للمساعده .
شكرا

OOP VB .Net Toturials and Examples - دروس فى ال أو أو بى

بدأنا مشروع تطوير الــ TextBox

 خاصية IsDate التى سنقوم ببرمجتها الهدف منها التحكم فى المكتوب بالـ NewTextBox هل هو تاريخ أم لا ! و بالتالى سيكون نوع الخاصيه Bolean أى تحتمل الـ True أو الـ False بمعنى اذا كانت True فانه يمكن للمستخدم كتابة تاريخ و العكس فى حالة False .
صورة رقم 40
و كما فى المثال السابق لبرمجة خاصية TypeOfChr قمنا بعمل متغير Ch بالمثل هنا سنقوم بعمل متغير Dt نوعه من نوع الخاصيه Bolean حيث سيقوم المتغير Dt بتخزين القيمة Set و استرجاع القيمه Get من المتغير Value .... صورة رقم 40
و نقوم بعمل Build للأداه الجديده و ننتقل الى الـ Form1 و نتحقق من شاشة الخصائص نجد أن الخاصية ظهرت بالفعل .. كما بالصورة رقم 41 .

صورة رقم 41

نقوم الان ببرمجة الاداه للاستخدام ... المفروض اختيار True معناه تمكين المستخدم من كتابة Date فقط و False معناه كتابة أى نوع (تاريخ - ارقام - حروف ..... الخ) و سيكون ذلك للحدث Leave حيث سيقوم البرنامج بمعرفة نوع المكتوب فى الاداه عند تركها Leave و الانتقال الى Focus لها ايضا , و يكون الكود كما فى الصورة 42 .

صورة رقم 42

و الكود يقول : فى الحدث Leave اذا كانت الخاصيه IsDate نوعها True أى أن المستخدم (المبرمج) جعل الكتابه على شكل تاريخ فقط و نوع المكتوب فى الاداه ليس تاريخ , اذا اترك الاداه و اظهر رسالة اعتراض Error In Date Format.
و نقوم بالتجربة (قم بعمل Build و اضف الاداه الى الـ Form1 بعد ازالتها و اضف TextBox1 عاديه لتجربة الحدث Leave و لا تنسى ان تجعل TypeOfChr = Both و الـ IsDate = True) و قم بعمل Save ثم Run او اضغط F5 ..... و اكتب فى الـ UserContor1 على الـ Form1 أى شىء ثم انتقل بالماوس على الـ TextBox تلاحظ رسالة الخطأ كما بالشكل رقم 43 .
صورة رقم 43
و بالتالى نكون قد انتهينا من التصميم و لكـــــــــــــــــــــــــــــــــن ! الادوات بالذات يجب أن تكون Perfect و لا تدع بها مجالا للصدفه فإن المستخدم الذى يستخدمها هو مبرمج لذا سنقوم بتحسين شكل رسالة الخطأ و ندع الامر للمستخدم ليحدد الرساله الذى يرغب فى اخراجها لمن يصنع له البرنامج .... سنقوم بعمل Event ... و سيكون هذا الحدث هو رسالة الخطأ و بالتالى سنقوم بعمل حدث جديد سنأتى بعد نهاية كود الخاصية IsDate و نكتب الكود :
Public Event IsDate_Msg()
صورة رقم 44
و نقوم بحذف رسالة الخطأ من الحدث Leave و نكتب مكانها RaiseEvent IsDate_Msg أى (عند تحقيق الشرط السابق قم باطلاق هذا الحدث) و ندع قيمة الحدث للمبرمج يكتبها كما يشاء و لا نحدده برسالة خطأ معينه حتى تكون الاداه Dynamic & Flexible ..... نقوم بالتجربة و ندخل على الـ Form1 و نتوجه الى شاشة الكود الخاصة الاداه UserControl1 على الـ Form1 و نبحث عن الحدث IsDate_Msg و نكتب به أى رسالة و ننفذ المشروع و نلاحظ أنه فعلا ظهرت الرساله التى كتبناها الان و هذا ما سيقوم به المبرمج الذى ستعطيه الاداه ... صورتان 44 - 45 .
صورة رقم 45
ماذا الان ؟؟؟
أولا : تغيير اسم الاداه من UserControl1 الى MyNewTxtBx
ثانيا : تغيير شكل الايقونه الى ايقونة خاصه
ثالثا : تعلم كيفية اضافة تأثير الى الاداه الجديده حتى تصبح مميزه Marquee النص المتحرك .

Visual Basic Courses - Share