Page 67 - أساسيات الحاسب الالي2

‫جمل التحكم‬ ‫الفصل الرابع‬

‫اس تخدم العب ارة ‪ select case‬لتحدي د المفت اح المخت ار م ن الم ستخدم ف ى دال ة ص ندوق‬
‫النصوص بحيث يظهر صندوق نص برسالة تخبر المستخدم بالمفتاح الذى تم اختياره‪.‬‬

‫)(‪Sub Main‬‬
‫‪Dim X$‬‬
‫)"‪x$ = MsgBox("PRESS ANY KEY", 3, "Choice‬‬
‫‪Select Case x‬‬
‫‪Case vbYes‬‬
‫)"‪MsgBox("YOU CLICKED YES‬‬
‫‪Case vbNo‬‬
‫)"‪MsgBox("YOU CLICKED NO‬‬
‫‪Case vbCancel‬‬
‫)"‪MsgBox("YOU CLICKED CANCEL‬‬
‫‪End Select‬‬

‫‪End Sub‬‬
‫بتنفيذ الكود يظهر صندوق رسائل يضم ثﻼث مفاتيح ‪ Yes , No, Cancel‬وباختيار‬
‫المستخدم ﻷى من المفاتيح الثﻼثة يظهر صندوق نصوص آخر يضم رسالة بالمفتاح‬

‫المختار كما فى الشكل التالى‬

‫‪٦٧‬‬