+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : لحفظ الاعدادات عند اغلاق الجهاز (/showthread.php?tid=15026)
لحفظ الاعدادات عند اغلاق الجهاز - عيسى ابو ارميس - 07-03-16
انا قمت بتصميم برنامج يقوم على تسجيل لحظة الدخول الى النظام أما عند الضغط على ايقاف التشغيل النظام الا يحفظ قيمة الخروج داخل قاعدة البيبانات عند انهاء النظام , اما عند اغلاق البرنامج يدويا يقوم بحفظ الاوقت الخروج , وانا اطلب من جميع ذوي الخبرة أظافة كود من أجل حفظ وقت الخروج داخل قاعدة البيانات
RE: لحفظ الاعدادات عند اغلاق الجهاز - ahmedabdelaliem - 08-03-16
السلام عليكم ورحمة الله وبركاته
حياك الله اخي
طلبك في المرفقات
بالتوفيق
RE: لحفظ الاعدادات عند اغلاق الجهاز - Ahmed_Mansoor - 08-03-16
أهلا أخي الكريم , تستطيع تنفيذ كود معين قبل إغلاق البرنامج , وذلك بإستخدام هذا الكود في حدث الـ Form_QueryUnload للفورم :
PHP كود :
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = vbAppWindows Then
Cancel = -1
' ضع الكود الذي تريد تنفيذه قبل إغلاق البرنامج
End
End If
End Sub
RE: لحفظ الاعدادات عند اغلاق الجهاز - Ahmed_Mansoor - 09-03-16
أهلا أخي الكريم , تعديل الكود السابق , أنت ضعه بهذه الطريقه لأي محاولة لإغلاق برنامجك :
PHP كود :
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = -1
' ضع الكود الذي تريد تنفيذه قبل إغلاق البرنامج
End
End Sub
وهذا الكود إضافة فقط إذا أردت أن تعرف من الذي يحاول أو ماهي طريقة إغلاق برنامجك :
PHP كود :
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = -1
Select Case UnloadMode
Case vbFormControlMenu
MsgBox "The user chose the Close command (the ""X"") from the Control menu on the form."
Case vbFormCode
MsgBox "The Unload statement is invoked from code."
Case vbAppWindows
MsgBox "The current Microsoft Windows operating environment session is ending."
Case vbAppTaskManager
MsgBox "The Microsoft Windows Task Manager is closing the application."
Case vbFormMDIForm
MsgBox "An MDI child form is closing because the MDI form is closing."
Case vbFormOwner
MsgBox "A form is closing because its owner is closing."
End Select
'ضع كودك هنا
End
End Sub