اختيارات الmsgbox

السلام عليكم

أولا أهل بيك أخي الكريم وإن شاء الله تستفيد وتفيد ...

ثانيا : تفضل الكود

'
 Dim ask
'
     ask = MsgBox("هل تريد الخروج ؟", vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading + vbYesNo, "خروج")
'
  If ask = vbYes Then
'
      Unload Me
 End If

مشكور اخوى على تعبك

لكن كيف لو كان الرد بنعم فيخرج من لبرنامج و بلا يرجع للبرنامج

:)

اخي الكريم اخونا جزاه الله خير قام لك بالشرح الوافي

جملة If التي وضعها هي للناتج إذا كان نعم اخرج يعني اعمل ان لود

  If ask = vbYes Then
      Unload Me
 End If

وهي المعني الذي تقصده انت

ويمكن ان تغير Unload me وتجعلها Exit إذا اردت الخروج من الشاشة نهائياً

نسيتو شغلة صغيرة

If ask = vbYes Then

      Unload Me

else

cancel

 End If

شكرأ لكم على تعبكم معى و على الرد السريع

ممكن اسئل اسئلة؟

1-كيف انا الماوس عند المرور فوق زر كوماند ينير ويطفىْ؟

2-كيفية جعل الفورم بالوان ويندوز اكس بى مع العلم الويندوز الخاص 98؟

3-كيف اضافة صوت للفورم؟

4-كيف صنع يرنامج صغير يعدد عدد مرات الدخول لة (ديمو)

و ايضاً بهذا البرنامج مكان لكلمة مرور و اسم مستخدم عند ادخالهما صحيحان يبطل مفعول عدد مرات الدخول يعنى يبفى كامل لكن لو ادخل المرور خطا تدخل رسالة توحى بذلك و الخروج من البرنامج؟

((((((يعنى زى برامج التانية))))))

ارجو ان اكون لم اتقل عليكم بالاسئلة و شكر خاص لكل من جاوب اسئلتى ولكل اعضاء المنتدى..:):):)