السلام عليكم ورحمة الله وبركاته..
عندي زر امر مثلا اسمه A
وهناك كود يظهر رسالة ، مثلا الكود هو MSGBOX"Thank You
والمراد عند النقر على زر امر A وتظهر هذه الرسالة ، فعند النقر على OK ، اريد ان تختفي هذه الرسال
تحياتي...
[ تمت الإجابة ]هل يمكن اخفاء Msgbox بمجرد النقر على Ok
استاذتنا الغالية
بعد اذن اخ بلالي
مطلوب ان لا تظهر هذه الرسالة مرة اخري خلال استخدام البرنامج
يعني تظهر عند اول ضغط واذا ضغط مرة اخري لا تظهر
مع الشكر
لا تؤجل عمل اليوم الي الغد
شكرا جزيلا اعزائي الكرام...
الظاهر انني استعجلت في طرح السؤال .
اذ ان السؤال المطلوب كالتالي .
عندي مثلا نموذج اسمه frm ومن خصائص هذا النموذج
on timer.....[event procedure]
timer interval....1000
والكود هو
msgbox"thank you"
طبعا كل ثانية رايح تظهر الرسالة
المطلوب من تظهر الرسالة واضغط على ok رايح تختفي الرسالة ولا تظهر مرة ثانية
مسامحة مرة اخرى..
تحياتي
ايضا هذه سهله ولا يوجد بها اي مشكله
ضع في حدث عند عداد الوقت هذا الكود
Private Sub Form_Timer()
Me.TimerInterval = 1000
If MsgBox("Thank You", vbOKOnly, "Thank You") = vbOK Then
Me.TimerInterval = 0
End If
End Sub
مهمة هذا الكود انه يقوم بعرض الرسالة لأول مره بعد ثانية واحده فقط من بدأ فتح النموذج وبعد الضغط على رز OK فإن عداد الوقت يتحول الى ( صفر ) ثانية بمعنى ان العداد سيتوقف نهائيا ولن تظهر الرسالة مرة أخرى طالما النموذج مفتوح إما اذا تم اغلاق النموذج وفتحه ستظهر الرسالة مرة أخرى .
الف شكر لاستاذتنا الكريمة ..
وبالتوفيق والنجاح ، إن شاء الله.
تحياتي..
