Aboud Aboud
07-19-2007, 03:16 PM
نلاحظ عندما نحدد زر Check1 على المشروع لاختيار شيء ما فانه عند اعادة تشغيل المشروع
ان زر Check يكون غير محدد
فهذا الكود يحفظ اذا كان Check1 محدد عند اغلاق البرنامج فيبقى Check1 محدد عند اعادة تشغيل المشروع
واذا لم يكن Check1 محدد عند اغلاق البرنامج فلن يكون Check1 محدد عند اعادة تشغيل المشروع
Private Sub Form_Load()
Check1.Value = GetSetting(App.Title, "Settings", "SaveInCheck1", 0)
End Sub
Private Sub Form_Unload(Cancel As Integer)
SaveSetting App.Title, "Settings", "SaveInCheck1", Trim(Check1.Value)
End Sub
ان زر Check يكون غير محدد
فهذا الكود يحفظ اذا كان Check1 محدد عند اغلاق البرنامج فيبقى Check1 محدد عند اعادة تشغيل المشروع
واذا لم يكن Check1 محدد عند اغلاق البرنامج فلن يكون Check1 محدد عند اعادة تشغيل المشروع
Private Sub Form_Load()
Check1.Value = GetSetting(App.Title, "Settings", "SaveInCheck1", 0)
End Sub
Private Sub Form_Unload(Cancel As Integer)
SaveSetting App.Title, "Settings", "SaveInCheck1", Trim(Check1.Value)
End Sub
