رسالة حفظ

قم بكتابة الشفرة اللازمة لمعرفة انه قام بالحفظ أو لا , أو يريد أن يحفظ السجل قبل الاغلاق (هذا يعتمد علي نوع عمل برنامجك) أما الإجراء الذي يعمل عند إغلاق النموذج هو

 Private Sub OnClose(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Closed

End Sub

وهذا مثال بسيط يقوم بعرض رسالة للمستخدم

Private Sub OnClose(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Closed

If MsgBox("Are You Sure You Want To Exit", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then

MsgBox("Good By")

Else

MsgBox("Welcome")

 End If

End Sub

وعسي أن يكون المثال مفيدا

والله الموفق

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

ما هو نوع مصدر البيانات الذي تستخدمة.

اذا كان DataSet يمكنك الاستفسار عن التغيرات التي حدثت بالطريقة التالية

        If DataSet1.HasChanges Then
            'TODO:...........................
        End If

هذا نص من كتاب

محمد حمدي غانم

اقتباس

تمّ تعديله Modified:

عندما يجري المستخدم أيّ تغيير على محتويات مربّع النصّ، بالكتابة أو الحذف، فإنّ قيمة هذه الخاصيّة تتغيّر تلقائيّا لتصبح True.. أمّا لو كان التغيير في محتويات مربّع النصّ قد قمت به أنت من خلال الكود، فإنّ قيمة هذه الخاصيّة تظلّ كما هي.

ويمكنك استخدام هذه الخاصيّة للتأكّد من حدوث تغيّرا على النصّ، حتّى تسأل المستخدم إذا كان يريد حفظ هذه التغييرات أم لا.. وهنا يجب أن تعيد قيمة هذه الخاصيّة إلى False بنفسك، كلّما قام المستخدم بحفظ التغييرات.

انتهى كلامه

يعني عند الاغلاق قم بعمل كود يتفحص فإذا كانت قيمتها True فيظهر رسالة تنبيه ومطالبة بالحفظ أما اذا كانت False فالأمر راجعلك :)

واذا كنت تغير قيمتها عن طريق الكود (عملية حسابية مثلا ) فأعطيها القيمة False بعد تنفيذ الكود عليها لكي يظهر التنبيه

كمثال

Me.TextBox1.Modified = False

هذا مالدي ممكن أن يكون مفيد

الله يعطيكم العافية وما يحرمنا منكم... ماقصرت ياإخوان