Search VB 2010

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 النص المتحرك .

3 comments:

  1. I want to to thank you for this wonderful read!!
    I definitely enjoyed every little bit of it. I've got you saved as a favorite
    to look at new stuff you post�

    Also visit my web site: meilleur streaming x ()

    ReplyDelete
  2. I wish to express thanks to you just for bailing me out of this incident.
    Right after surfing around through the internet
    and coming across notions which were not powerful, I thought my
    entire life was over. Living without the presence of approaches to the problems you have resolved by means of your short article is a critical case, and the ones which could have badly affected my entire career if I had not noticed your blog.

    Your actual capability and kindness in taking care of a lot of stuff
    was priceless. I don't know what I would have
    done if I hadn't discovered such a subject like this.
    I am able to now relish my future. Thanks for your time so much for this impressive and result
    oriented guide. I won't think twice to recommend your blog to
    anyone who should have direction on this area.

    My blog :: gay pron ()

    ReplyDelete
  3. obviously like your website but you need to take a look at the spelling on quite a few of your posts.

    A number of them are rife with spelling issues and I to find it
    very troublesome to inform the reality then again I will definitely come again again.


    Look at my blog ... youpone xxx

    ReplyDelete

Visual Basic Online Course

Visual Basic Courses - Share