لدينا ستة أزرار أوامر اثنين لتغيير حجم نافذة المشروع ، واثنين لتغيير ألوان نافذة المشروع ، وواحد لإخفاء الأزرار ، وواحد لاستعادة الأزرار المخفية ، ولاحظ أن الزر أظهر الأزرار أن قيمة خاصية المنظور Visible هي False فنحن لا نريده في بداية التشغيل ، وعندما نرغب في إخفاء الأزرار ، فإننا نغير قيمة خاصية المنظور لهم إلي False ، وإذا أردنا أن نظهرهم نغير قيمة خاصية المنظور لهم إلي True في إجراء حدث النقر للزر الذي عنوانه أظهر الأزرار  .

كتابة إجراءات الأحداث Write Event Procedures :

لدينا ستة أزرار موضوعة علي نافذة المشروع ، ونحتاج لكتابة شفرة لإجراء نقر Click  كل من تلك الأزرار ، ولدينا زر يجعل نافذة المشروع تتقلص ولكن التقلص لدرجة عدم وجود زر التكبير سوف يؤدي إلي عدم تمكننا من تكبير النافذة ، ويمكننا تجنب ذلك بجعل النقر علي نافذة المشروع ذاتها يكبر النافذة .

وفي كل إجراء حدث سوف نستخدم نافذة الشفرة ، ونختار الأداة  أو ننقرها نقراً مزدوجاً ، ثم نضع المؤشر بين سطر العنوان والسطر الختامي وهو جسم الإجراء و نكتب كود أو شفرة الحدث .

ولكن تأكد من أنك تكتب كل شئ حتى الملاحظات .

أولاً دعنا نكتب حدث النقر لزر الأوامر قلص النافذة cmdShrink_Click وفي هذا الإجراء نقلص النافذة بمقدار 100 وحدة تويب في كل مرة ننقر فيها ذلك الزر .

           
Private Sub cmdShrink_Click()

'تقليص نافذة المشروع

'تقليص ارتفاع نافذة المشروع بمقدار 100 وحدة تويب

frmFormFun.Height = frmFormFun.Height - 100

' تقليص عرض نافذة المشروع بمقدار 100 وحدة تويب

frmFormFun.Width = frmFormFun.Width - 100

End Sub

وقبل أن نتعرض لبقية إجراءات الأحداث ، لننظر عن قرب إلي الإجراء السابق ، فهذا الإجراء ينفذ  لدي نقر الزر الذي عنوانه قلص النافذة ، وبالطبع فأنت تعرف جملة الملاحظة أو التوثيق ، أما الجمل الأخرى فتغير ارتفاع وعرض نافذة المشروع ، فالجملة التي تغير الارتفاع هي :

frmFormFun.Height = frmFormFun.Height - 100

تذكر كيفية عمل مؤثر التخصيص (=) ، فالطرف الأيمن يحسب أولاً ، ومن يتم طرح ( مؤثر الطرح يظهر قبل العدد 100) 100 من ارتفاع Height  النافذة الحالي frmFormFun ثم تخصص النتيجة لخاصية الارتفاع بالاستبدال مع القيمة السابقة آي الارتفاع ناقص 100 تويب ، وهنا يتقلص ارتفاع النافذة بمقدار 100 تويب    

والتعبير السابق يظهر أيضا لماذا لا نسمي مؤثر التخصيص بعلامة التساوي ، فأي واحد يمكنك الحكم علي أن الطرف الأيسر لا يمكن أن يساوي الطرف الأيسر .

والآن دعنا ننتقل لحدث نقر زر تكبير النافذة cmdGrow_Click فهذا الإجراء يزيد ارتفاع النافذة Height بمقدار 100 تويب ، وكذلك يزيد عرض النافذة Height بمقدار 100 تويب :

Private Sub cmdGrow_Click()

'تكبير النافذة

'تكبير ارتفاع النافذة بمقدار 100 تويب

frmFormFun.Height = frmFormFun.Height + 100

'تكبير عرض النافذة بمقدار 100 تويب

frmFormFun.Width = frmFormFun.Width + 100

End Sub

و حدث النقر لزر الأوامر cmdRed_Click يغير خلفية نافذة المشروع للون الأحمر :

Private Sub cmdRed_Click()

'جعل لون خلفية النافذة أحمر

frmFormFun.BackColor = vbRed

End Sub

بينما حدث النقر لزر الأوامر cmdBlue_Click يغير لون خلفية نافذة المشروع للون الأزرق :

Private Sub cmdBlue_Click()

'جعل لون النافذة أزرق

frmFormFun.BackColor = vbBlue

End Sub

وإجراء حدث النقر للزر الأوامر cmdHide_Click يخفي (يخصص القيمة False  للخاصية Visible ) كل أزرار الأوامر عد الزر  cmdShow الذي يجعله مرئياً .

Private Sub cmdHide_Click()

'إخفاء كل الأزرار عد الزر cmdShow

cmdGrow.Visible = False

cmdShrink.Visible = False

cmdHide.Visible = False

cmdRed.Visible = False

cmdBlue.Visible = False

'إظهار الزر cmdShow

cmdShow.Visible = True

End Sub

أما إجراء حدث النقر للزر cmdShow_Click الذي يظهر كل الأزرار عد زر إخفاء الأزرار:

Private Sub cmdShow_Click()

'إظهار كل الأزرار عد cmdShow

cmdGrow.Visible = True

cmdShrink.Visible = True

cmdHide.Visible = True

cmdRed.Visible = True

cmdBlue.Visible = True

'إخفاء الزر cmdShow

cmdShow.Visible = False

End Sub

وأخيرأ فإجراء حدث نقر نافذة المشروع يكبرها أيضاً ، ومن ثم فله نفس أثر الزر cmdGrow_Click :      

Private Sub Form_Click()

'تكبير نافذة المشروع

'تكبير ارتفاع نافذة المشروع بمقدار 100 تويب

frmFormFun.Height = frmFormFun.Height + 100

'تكبير عرض نافذة المشروع بمقدار 100 تويب

frmFormFun.Width = frmFormFun.Width + 100

End Sub

مع ملاحظة أنك اخترت الإجراء بطريقة جيدة ، فعندما تختار أداة النافذة سوف يظهر لك إجراء حدث التحميل  Load ، فاختر حدث النقر Click من قائمة الإجراءات  ، وراجع أساليب حفظ المشروعات الجديدة :

ويجب أن تري كيفية عمل تلك الإجراءات ، وانتبه لكيفية عمل خاصية المنظور Visible في أحداث الزرين  cmdHide  و  cmdShow ، ولاحظ أن هناك إجراءين متشابهين في الوظيفة وهما إجرائي الحدثين  Form_Click و cmdGrow_Click ، ومن ثم حاول أن تظلل المنطقة المتكررة وانسخها ، وقم لصقها في جسم إجراء الحدث المتكرر ، ويمكنك أن تظلل المنطقة وتختار قائمة التصحيح Edit ، وتختار Copy ثم ضع مؤشر الماوس في جسم الإجراء الثاني ، وافتح قائمة Edit مرة أخري واختر View حينئذ يتم لصق الموجود بالذاكرة في ذلك الموضع ، ولكن توفر لك فيجوال بيسك وصول مباشر لتلك الوظائف من خلال شريط الأدوات كما يلي :

          فظلل المنطقة وانقر أيقونة النسخ ثم ضع المؤشر حيث تشاء واضغط أيقونة اللصق ، وكذلك يمكنك قص المنطقة المظللة ، بل والبحث عن كلمات من خلال أيقونة البحث ، فلدي نقرك لها يظهر لك المربع الحواري التالي :

بل يمكنك من خلال ذلك المربع الحواري أن تستبدل كلمة بأخرى بعد البحث عنها .

كذلك توفر لك فيجوال بيسك طرقة عرض آلية للخواص لدي كتابتك لاسم أداة وبعد وضعك للنقطة تظهر  لك قائمة تختار من اسم الخاصية التي تريدها كما يلي :

فإذا لم تكن هذه القائمة تظهر لك ، فانقر القائمة Tools ، واختر Options  وانقر Editor ضع علامة صح علي الزر المقابل Auto List Members وكذلك سوف تري رسائل معاونة أخري.

 تشغيل المشروع Run the Project :

          انقر زر البدء Start من شريط الأدوات ، فإذا لم يعمل المشروع أعد النظر في المشروع وتأكد من صحة ما كتبت ، وسوف نتعلم أساليب التصحيح في الدرس التالي .

جرب كل الأزرار وتأكد من أن كل زر يؤدي الوظيفة التي خصصتها له ، فأحيانا يكون للأحداث شفرة ولكنها لا تعمل ، ولكن علي آي حال احفظ مشروعك واسترح قليلاً .

مقترحات :

          لكل مشروع لدينا مقترحات لك لتطويره ، طور مشروعك لتجعل أزرار تكبير Grow النافذة وتصغيرها Shrink يحرك النافذة عبر الشاشة (استخدم الخاصيتين قمة Top ويسار Left)

 أضف ألوان أخري ، وغير زر الإخفاء بحيث يستبدل الخاصية Visible بالخاصية Enabled  وكذلك زر الإظهار .

ملخص :

تهانينا علي ما أنجزته فقد تعلمت علي الأقل أداتين و تصميم وحفظ المشروعات بشيء من التفاصيل مع الأداتين زر الأوامر ونافذة المشروع ، وأصبحت مقتنعاً بخطوات بناء المشروع الثلاث ، وفي الدروس التالية سوف نبني مشروعات باستخدام أدوات أخري ونتعمق أكثر في لغة البيسك .