Developer Ala2

بسم الله الرحمن الرحيم

إن سألك أحدهم : “كيف تحفظ قيمة رسائلك التنبيهية ؟”

غالبا ستقول :

Dim X as integer

X = Msgbox (”Hello World”,vbYesNo,”Msg)

If X = 6 Then End

لكن ألا تلاحظ أنها طريقة متعبة , وتحتاج حفظ ؟

حسنا ما هو الرقم الذي ستكتبه إن كنت تريد هل ضغط المستخدم زر Cancel , Retry أو غيره

ربما تحتاج إلى مرجع , أو السؤال في منتدى ما أو غيره

لكنني , ومن منطلق “أن البرمجة ليست حفظا” , وجدت نوع بيانات اسمه VbMsgBoxResult

استبدل إذن Integer بـVbMsgBoxResult

تصبح الجملة :

Dim X as VbMsgBoxResult

اكتب في محرر الكود :

X =

سيظهر لك قائمة بالأزرار التي تعرضها رسائل التنبيه

سؤال / وماذا أفعل لأضع قيمة MsgBox داخل X ؟

لا عليك , فقط قم بكتابة

X = MsgBox “Msg Here …”

وسيضع القيمة في المتغير بشكل عادي