زر الاختيار وخانة
التحقق وإطار الحاوية
تمهيد
·
هل لعبت مع برنامج تعليم
المنطق ؟
·
هل يمكنك أن تعلم زرين في
نفس الوقت ؟
·
ومتي يمكنك أن تفعل ذلك ؟
·
وما العلاقة بين ذلك وبين
الإطار الحاوي لمجموعة الأزرار ؟
زر الاختيار :
يستخدم
زر Option Button
عندما يكون لدينا خيار إما صحيح أو خطأ مثلاً
الأسئلة التي تتطلب نعم أو لا ، صواب ، وخطا ،
…… الخ .
|
في نافذة المشروع |
في نافذة الأدوات |
|
|
|
حاول
أن تبدأ مشروع فيجوال بيسك جديد ، وانقر زر
الاختيار ، وضعه علي نافذة المشروع ، وغير
حجمه ، وموقعه ولاحظ مدى تأثر الخواص Left,Top,Height,Weidth
، انقر الخاصية RightToLeft
ولاحظ مدي التغير الذي يحدث علي عنوان زر
الاختيار ، غير خاصية Visible
من True
إلي False
ولاحظ ماذا يحدث ؟ ، اغلق
التنفيذ ، وغير خاصية Enabled
من
True إلي
False
و شغل البرنامج ولا حظ ماذا ؟ هل أصبح الزر
نشطاً ؟
أهم
الخواص :
|
وظيفتها |
اسمها |
الخاصية |
|
تختزن العنوان الذي سوف
يظهر بجوار الزر. |
العنوان |
Caption |
|
وهي تختزن قيمتين الأولي True
وتعني أن الزر تم نقره ، وهنا تظهر بداخله
نقطة سوداء ، والقيمة False
وتعني أن الزر لم يتم نقره ، ولا تظهر به
آي نقاط . |
قيمة الخاصية |
Value |
|
يجعل اتجاه النص من اليمين
لليسار وهو
مفيد للنص العربي |
من
اليمين لليسار |
RightToLeft |
|
يحدد البعد عن حافة نافذة
المشروع اليسرى بوحدة القياس النشطة . |
البعد الأيسر |
Left |
|
يحدد البعد عن حافة نافذة
المشروع العليا بوحدة القياس النشطة . |
البعد عن القمة |
Top |
|
يحدد ارتفاع زر الاختيار
بوحدة القياس النشطة . |
الارتفاع |
Height |
|
يحدد عرض زر الاختيار
بوحدة القياس النشطة . |
العرض |
Wedith |
|
يحدد مدي تمكن المستخدم من
مشاهدة الزر في طور التشغيل من عدمه True
=منظور و =Falseمخفي |
منظور |
Visible |
|
يحدد مدي تمكن المستخدم من
نقر الزر في طور التشغيل من عدمه True
=تمكين و =Falseعدم تمكين |
تمكين |
Enabled |
وهناك
خواص أخري مثل الخاصية Font
وBackColor
و
هما يحدد الخط ولون الخلفية ، أما لون الخط
فتحدده الخاصية ForeColor
.
مشروع
:
أبدا
مشروع فيجوال بيسك جديد
، وضع عليه الأداتين التاليتين :
|
خصائصها |
اسمها |
الأداة |
|
|
التحكم في النافذة بأزر
الاختيار |
Caption |
Form1 |
نافذة المشروع |
|
&H00008000& |
Backcolor |
||
|
Form1 |
Name |
||
|
True |
RightToLeft |
||
|
خروج |
Caption |
Command1 |
زر أوامر |
|
CmdExit |
Name |
||
|
optFormgreen |
Name |
Option1 |
زر اختيار |
|
True |
RightToLeft |
||
|
&H00008000&
(انقر اللون) |
Backcolor |
||
|
1-Right justify |
Alginment |
||
|
أخضر |
Caption |
||
|
OptFormBlue |
Name |
Option1 |
زر اختيار |
|
True |
RightToLeft |
||
|
&H00FF0000& |
Backcolor |
||
|
1-Right justify |
Alginment |
||
|
أخضر |
Caption |
||
وسيبدو
شكل نافذة المشروع كما يلي :
وفي
حدث النقر لزر الأوامر اكتب الشفرة التالية :
Private
Sub CmdExit_Click()
'ينهي
البرنامج
End
End
Sub
و
في حدث النقر لزر الاختيار OptFormBlue
اكتب الشفرة الموجودة في جسم الإجراء :
Private
Sub OptFormBlue_Click()
'يجعل
خلفية نافذة المشروع زرقاء
If
OptFormBlue.Value = True Then Form1.BackColor = vbBlue
End
Sub
و
في حدث النقر لزر الاختيار optFormgreen
اكتب الشفرة الموجودة في جسم الإجراء :
Private
Sub optFormgreen_Click()
'يجعل
خلفية نافذة المشروع خضراء
If
optFormgreen.Value = True Then Form1.BackColor = vbGreen
End
Sub
نشاط
: حاول أن تستبدل زر الأوامر بزر اختيار و باسم
OptExit
واكتب الشفرة التالية فيه :
IF OptExit.value=True Then End
 |
 |
 |
