الــدرس الثــاني : إزرار الخيار ومربعات العلامة ومربعات الحوار البسيطة

[جموح]

الــدرس الثــاني : إزرار الخيار ومربعات العلامة ومربعات الحوار البسيطة .
* برمـجــة الــزر Options "خيارات " :
" عندما ينقر المستخدم على هذا الزر يظهر له مربع حوار في نافذة أخرى يتيح له تحديد بعض الخيارات التي تتحكم في عمل البرنامج "
- نضيف نافذة ثانية للبرنامج لإستخدامها كمربع حوار خيارات يتيح للمستخدم التحكم في طريقة عمل منسق النصوص .
... لإظافة نافة ثانية إلى البرنامج . . .
- من قائمة Project نختار أمر Add Windows Form ننقر نقراً مزدوجاً فوق قالب Windows Form .
" تظهر لنا نافذة ثانية أسمها Form2 " .


- نزيد من حجم النافذة قليلاً ، ثم نستخدم صندوق الأدوات لإظافة زرين إلى النافذة ، ونستخدم نافذة الخصائص لتغيير عنوانهما ( باستخدام خاصية **** ) إلى Ok و Cancel .
- الآن نضيف نسختين من أداة مربع التجمع " GroupBox " ، ثم نغير خاصية **** في الأداة الأولى الى Color ، والثانية إلى Border .
" مربع التجميع يستخدم كوعاء لتجميع الأدوات الأخرى على النافذة

* يجب أن يظهر البرنامج كما في الشكل التالي

- الآن نضع الأوامر البرمجية في الزر Options
" أوامر البرمجه التي سندخلها إلى هذا الزر ، تخبر البرنامج أن يفتح النافذة الثانية التي قمنا بتصميمها سابقاً "
Dim N as New Form2
N.Show

================================================== ==================
* تجميع أزرار الخيـار داخل مربــع التجميــع :
زر الخيــار " Radio Buttons " :
" عند وضع إزرار الخيار داخل مجموعه ، فإن المستخدم سيتمكن من إختيار زر واحد منها فقط "
- نريد إنشاء مجوعة من الإزرار تتيح للمستخدم الإختيار بين جعل مربع النص مسطحاً او ثلاثي الأبعاد .
- كما نريد إنشاء مجوعة أخرى لتحديد لون النص داخل المربع ( اسود ، احمر ، اخضر ، أزرق ) .
- يفضل إستخدام أسلوب الرسم لرسم الأدوات المراد إظافتها داخل المربع .
" لرسم زر الخيار داخل مربع التجميع ، ننقر فوق أداة زر الخيار ٌRadio Buttons في صندوق الأدوات ، ثم ننقر ونسحب داخل مربع التجميع لرسم زر الخيار داخله

- نكرر العملية السابقة لإنشاء ثلاثة أزرار أخرى داخل مربع التجميع .
- نغير خاصية **** للإزرار الأربعة إلى Balck و Green و Red و Blue .
" يمكننا أيضاً تغيير خاصية Name للإزرار السابقة ، حيث يصبح أسم كل زر دالاً على اللون الذي يمثله "
- نغير خاصية Checked في زر الخيار Black إلى True .
" هذه الخاصية تجعل لون النص التلقائي هو الأسود ، بحيث يظهر محدداً على النافذه "
- الآن نكرر العملية السابقة لرسم زري خيار آخرين في مربع التجميع المسمى Border ونجعل عنوانهما 3D و Flat ، ونغير خاصية Checked في زر 3D على True .

ستكون النافذة الثانية ( نافذة الخيارات ) بهذا الشكل بعد الإنتهاء من مرحلة التصميم

================================================== ==================
* الآن وبعد الإنتهاء من مرحلة التصميم النافذة الثانية ( نافذة الخيارات ) نقوم بإدخال الأوامر البرمجية اللازمة لعمل البرنامج كما نتوقع .
* برمجة زر الإلغاء " Cancel " :
" الغرض من هذا الزر هو إخفاء النافذة الثانية بدون عمل شيء آخر "
" بمعنى أن المستخدم يمكن أن يحدد بعض الخيارات في مربع حوار النافذة الثانية قم يغير رأيه وينقر زر إلغاء لإلغاء هذه الخيارات وإغلاق مربع الحوار بدون إجراء أي تعديلات "
- ندخل الأمر التالي في نافذة برمجة الزر Cancel :
Me . Hide ( ) a

* برمجة الزر موافق " OK " :
" عمل هذا الزر هو تأكيد التعديلات التي أجراها المستخدم وتنفيذها "
" إذاً ، علينا وضع جميع الأوامر الخاصة بالنافذة الثانية داخل هذا الزر "
" بحيث إذا نقر المستخدم زر موافق فإنه يقوم بتنفيذ جميع الخيارات التي حددها في المربع "
- نكتب الأوامر التالية في نافذة البرمجه للزر OK :
" نلاحظ أن الأوامر البرمجية التاليه متشابهة بأستثناء أسم الزر والخاصية ، لذا وتوفيراً للوقت نقوم بكتابة الأمر الأول ، ثم نحدده باستخام الفأرة ، ثم نضغط مفتاحي Ctrl + C لنسخه ، ثم نقوم بنسخه بمفتاحي Ctrl + V ونقوم بعمل خمس نسخ ، ثم نعدل أسم الزر والخاصية في كل أمر "
Dim N AS New Form1
If rbbalack . checked = True Then N.****Box1.Forecolor = system . Drawing . Color . Black
If rbred . checked = True Then N.****Box1.Forecolor = system . Drawing . Color . Red
If rbgreen . checked = True Then N.****Box1.Forecolor = system . Drawing . Color . Green
If rbblue . checked = True Then N.****Box1.Forecolor = system . Drawing . Color . Blue
If rb3d . checked = True Then N.****Box1.BorderStyle = System . Windows . Forms . BorderStyle . Fixed3D
If rbflat .checked = True Then N.****Box1.BorderStyle = System .Windows .Forms .BorderStyle .FixedSingle
* في الأوامر البرمجية السايقه ....
- أنشئنا متغيراً N ليمثل النافذة الأخرى ( والتي هي في هذه الحاله Form1 ) . الل
" في السطر Dim N As New Form1 ، نطلب من فيجوال بيسك أن يجعل المتغير N يشير إلى النافذة Form1 "
" السطر المحتوي على الجمله الشرطيه If ..... Then ، هذه الجمله تقول ( إذا كان الشرط الذي يلي كلمة If صحيحاً ، فنفذ الأمر الذي يليها ، وإن لم يكن الشرط صحيحاً ، فلا تنفذ "

* فهم مساحات الأسماء : " Import "
- إن كلمة Import توفر علينا بعض الكتابة عند إدخال الأوامر ، فهي تستورد مساحة أسماء تشير إلى بعض المكتبات المتوفره في فيجوال بيسك .
وبعد كتابتها في بداية نافذة البرمجة ، نخبر فيجوال بيسك بأننا نستخدم بعض الدالات والخصائص المتوفرة في مكتبة معينة بحيث لانظطر إلى كتابة إسم المكتبة أو الكائن في كل مرة نستخدم فيها هذه الخصائص .
- مثـــــــــــال ...
" في الأوامر السابقة ، إستخدمنا الأمر التالي لتغيير لون النص في مربع النص إلى الأحمر Sysem.Drawing.Color.Red
، فإذا كنا نستخدم كائن System.Drawing كثيراً ، فربما يكون من الأفضل إستيراد مساحة الأسماء الخاصة به في بداية البرمجة "
مثال ... Imports System.Drawing
بهذا الشكل لن نضطر إلى ذكر الإشارة الكاملة لهذا الكائن في الأوامر التي نستخدمها وإنما نكتبه بهذا الشكل ....
Color.Red
================================================== ==================
* أداة مربع العلامة " CheckBox " :
- مربع العلامة يشبه زر الخيار ولكن تحديد أحد مربعات العلامه لا يؤدي إلى إلغاء تحديد المربعات الأخرى في المجموعة .
- بمعنى آخر ، تستخدم مربعات العلامة لعرض مجموعة من الخيارات حيث يمكن للمستخدم تحديد خيار واحد أو أكثر منها ، أو ربما تحديدها كلها .
" على سبيل المثال ، يمكن ان نضع مربعات علامة تتيح للمستخدم جعل النص مائلاً أو أسود عريضاً أو تحته خط ، او تحديدها جميعاً أو عدم تحديد أي منها "

** نــهــــــايـــــة الــــدرس الــثـــــانـــي**

[ضمتني الين طاح عقالي]

ربي يعطيك الف عافيه اخت ميركوداندس على الدرس الرائع

[عنـ الشوق ـاد]

تسلم يمناك اخت ميركوداندس

[محايد1]

درس رائع

ميركوداندس

تحيتي لك

[جموح]

لعيونها - عناد الشوق - عاشق الاطلال



بورك لكما مروركما