في هذا التمرين سوف نتعرف على كيفية استخدام الدالة msgbox
للتفاعل مع الفعل الذي يقوم المستخدم بإجراءه
فاذا اردنا على سبيل المثال عند قيام المستخدم بالضغط على المفتاح exit للخروج من البرنامج اظهار مربع رسالة للتأكد من المستخدم يريد الخروج بالفعل من البرنامج فاذا قام المستخدم بالضغط على المفتاح yes نقوم بانهاء البرنامج اما اذا تم الضغط على المفتاح no فانه لا يتم الخروج من البرنامج
ولعمل ذلك ننظر الى الكود
قد قمنا بتعيين الدالة msgbox للمتغير msgResult وكما ذكرنا من قبل بانه يجب تعريف هذا المتغير بنوع البيانات msgboxResult وبالتالي فانه يمكننا التعرف على المفتاح الذي قام المستخدم بالضغط عليه من خلال قيمة هذا المتغير
فعند قيام المستخدم بالضغط علىyes فسوف تكون قيمة هذا المتغير msgboxResult.Yes اما اذا فام المستخدم بالضغط على المفتاح no فسوف تكون قيمة هذا المتغير هى msgboxResult.No
نرى هنا الدالة Msgbox قمنا بتعين المفاتيح yes,no لهذه الدالة كما نرى كما قمنا بتحديد العنوان warning كعنوان لمربع الرسالة
وبما اننا نريد انهاء البرنامج عند قيام المستخدم على المفتاح yes فلابد من اختبار قيمة هذا المتغير فاذا كانت قيمته هى msgboxResult.Yes يتم الخروج من البرنامج
ولإختبار قيمة المتغير نقوم باستخدام الدالة if كما يظهر في هذه الجملة If MsgResult = MsgBoxResult.Yes Then كما يظهر في هذه الجملة
وهذه الجملة تعني بانه اذا كانت قيمة المتغير msgResult هى msgboxResult.Yes قم بتنفيذ الجملة التالية وهى عبارة عن الدالة End وتعمل هذه الدالة على انهاء عمل البرنامج
وبالتالي فان في حالة قيام المستخدم بالضغط على المفتاح yes فان هذه الجملة الشرطية تكون صحيحة وبالتالي سيتم تنفيذ الدالة End التي تعمل بدورها على انهاء البرنامج
ولتجربة هذا الكود نضغط على المفتاح start من شريط الادوات
وبالضغط على المفتاح exit يظهر مربع الرسالة وتظهر به المفاتيح yes,no وبالضغط على المفتاح no نلاحظ انه لا يتم انهاء البرنامج وبالضغط مرة اخرى على المفتاح exit والضغط على المفتاح yes
نلاحظ انه تم اغلاق البرنامج والعودة الى نافذة التصميم مرة اخرى
رد مع اقتباس
