Search VB 2010

Showing posts with label OOP Lesson 12. Show all posts
Showing posts with label OOP Lesson 12. Show all posts

Saturday, April 30, 2011

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