نسبيا، واستخدام الأحداث بسيط نسبيا. قبل استخدامه، يجب علينا أولاً تعريف الحدث، وهو ما يعني إعلام Visual Basic باسم الحدث. قد يكون للحدث معلماته الخاصة، على سبيل المثال، يحتوي زر الأمر على حدث Click، والذي لا يحتوي على معلمات. بالإضافة إلى ذلك، يحتوي مربع تحرير النص على حدث KeyPRess، الذي يتعامل مع المحتوى ذي الصلة من خلال قيمة تسمى "KeyAscii".
لتحديد حدث، قم بإضافة تعليمة برمجية مشابهة لما يلي إلى قسم التصريح العام للفئة:
ثم اتصل بأسلوب RaiseEvent في التعليمات البرمجية لإطلاق حدث ما. تمامًا مثل الكود التالي:
لتوضيح عملية إضافة الأحداث وإطلاقها أعلاه بشكل أفضل، لنأخذ مثالاً. أولاً: تعريف الحدث:
أضف الكود التالي في قسم التصريح العام لفئة CDog:
أضف عملية النوم الفرعية في فئة CDog:
في التعليمات البرمجية، يتم تنفيذ بعض الحلقات غير المفيدة لمدة 1,000,000 مرة في البداية بعد توقف الكمبيوتر مؤقتًا، تقوم عملية السكون الفرعية بتشغيل حدث Awake.
ولكن بعد وقوع حدث الاستيقاظ، هل يجب أن ندع البرنامج يستجيب وفقًا لذلك؟ بالطبع، يعد استخدام زر الأمر هو الأسهل، ما عليك سوى تحديد كائن زر الأمر في القائمة في نافذة التعليمات البرمجية.
ولكن في هذه الحالة، نحن بالتأكيد بحاجة إلى السيطرة، وكل ما نراه هو في النموذج. نحن هنا نستخدم الكود المقابل بشكل بحت وهو غير مرئي.
بالطبع، استخدام التعليمات البرمجية لتلقي الأحداث يتطلب عمليات إضافية:
في قسم "التصريحات العامة" في نافذة التعليمات البرمجية للنموذج، قم بإضافة التعليمات البرمجية التالية:
يختلف هذا الرمز عن تعريف MyDog السابق، فهو يحتوي على الكلمة الأساسية WithEvents لإعلام Visual Basic بأن الكائن يمكنه تلقي أي حدث، ويجب أن يتلقى الكائن الحدث.
حذف كافة التعليمات البرمجية في زر الأمر وإضافة التعليمات البرمجية التالية في Command1:
يقوم الكود ببساطة بتعيين MyDog إلى مثيل جديد لـ CDog، وتعيين الاسم، واستدعاء Bark، وأخيراً تشغيل عملية Sleep الفرعية.
أضف الآن بعض التعليمات البرمجية للرد على حدث Awake.
في نافذة التعليمات البرمجية للنموذج، حدد "MyDog" من القائمة المنسدلة للكائنات؛
في حدث "Awake" لـ "MyDog"، أضف الكود التالي:
حسنًا، حان وقت الاختبار الآن.
اضغط F5 لتشغيل البرنامج؛
انقر فوق زر الأمر؛
بهذه الطريقة، عندما ينبح الجرو، يبدأ في أخذ قيلولة ويتم إيقاظه بواسطتك في النهاية. إنه لأمر مدهش!
->