[ تمت الإجابة ]صندوق الاستمرار نعم او لا

بالنسبة لصندوق نعم أو لا عند الخروج، فيمكنك استخدام الحدث QueryUnload للنافذة، وهو يحدث عندما يريد المستخدم إغلاق النافذة، إليك المثال التالي:

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim A As Integer
A = MsgBox("Are you sure you want to exit?", vbYesNo)
If A = vbNo Then Cancel = 1
End Sub

فهنا كما ترى، عندما يريد المستخدم الخروج، نعرض عليه رسالة نسأله: هل أنت متأكد أنك تريد الخروج؟ فإن كان الجواب "لا"، نعطل الخروج بإسناد قيمة لا تساوي الصفر للمتغير Cancel ، فهذا المتغير إن كانت قيمته صفراً يعني أنك تسمح بالخروج، وإن كانت غير ذلك يعني أنك لا تسمح.

ويمكنك استعمال التعليمات ذاتها، للزر الذي تريده، مع التغيير بما يناسبك.

وفقك الله

شكرا الك الله يديمك