Author

Ahmed Samir

Evry1falls is my online name

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

OOP VB .Net Toturials and Examples - دروس فى ال أو أو بى 5 of 5
بدأنا مشروع تطوير الــ 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 النص المتحرك .

Comment Via facebook

Popular posts from this blog

Visual Basic Online Course DevExpress 12.2.4 full for Visual Studio 2010

Visual Basic Online Course The following control could not be licensed: TxTextControl.TextControl

Visual Basic 2010 Read/Write Command Prompt

Visual Basic Online Course - The Microsoft.ACE.OLEDB.12.0 provider is not registered on the local machine

Visual Basic Online Courses DataGridView Add Edit Delete