المشاركات : 2,468
المواضيع 2
الإنتساب : Nov 2014
السمعة :
602
الشكر: 17073
تم شكره 15267 مرات في 2998 مشاركات
حفظ ما يتغير في الـ Form حتى بعد إغلاقها
Private Sub Form_Load()
Text1.Text = GetSetting(App.Title, "Settings", "SaveInText1")
End Sub
Private Sub Form_Unload(Cancel As Integer)
SaveSetting App.Title, "Settings", "SaveInText1", Trim(Text1.Text)
End Sub
'يمكنك تغيير ال text1 بأي شيء آخر image أو Picture أو ... الخ
و لحفظ التغييرات في مربع الاختيار نستخدم الكود التالي
Private Sub Form_Load()
'كتبنا السطر التالي لأنه عند استخدام البرنامج لأول مرة لن يكون هناك قيمة في الريجستر كما حددناها و سوف يظهر لنا خطأ ما لم نكتب هذا السطر
On Error Resume Next
'الدالة التالية تسترجع قيمة معينة من مكان في الريجستر في قسم البرامج و لا يهم الكلمة الأخيرة حيث تستطيع أن تستخدم ما تشاء و لكن بشرط أن يكون نصي
Check1.Value = GetSetting("napcomss", "needhelp", "vb4arab", "anything")
End Sub
Private Sub Form_Unload(Cancel As Integer)
'الدالة التالية تقوم بحفظ قيمة نصية في الريجستر في مكان معين كما هو مبين
SaveSetting "napcomss", "needhelp", "vb4arab", Str(Check1.Value)
'strتقوم هذه الدالة بتحويل قيمة رقمية إلى قيمة نصية
End Sub
ولحفظ عناصر قائمة نستخدم الكود التالي
رمز:
For i = 0 To List1.ListCount - 1
SaveSetting App.Title, "SETTING", "sAVEINTEXT" & i, Trim(List1.List(i))
Next i
SaveSetting App.Title, "SETTING", "list12", Trim(List1.ListCount)
End Sub
ولاستعادة عناصر القائمة
رمز:
list12 = GetSetting(App.Title, "SETTING", "list12")
MsgBox list12
For i = 0 To Val(list12) - 1
List1.AddItem GetSetting(App.Title, "SETTING", "SAVEINTEXT" & i)
Next i
شرح
================================================
طريقة لاستخدام الدالة ( SaveSetting ) للحفظ في ( الريجيسترى - Registry ) والدالة ( GetSetting ) للقراءة من ( الريجيسترى - Registry ) :
1 - للحفظ :
SaveSetting App.EXEName, "textboxes", "text1", text1.Text
وفى هذه الحالة يتم الحفظ في ( الريجيسترى - Registry ) في المكان المخصص :
( in HKEY_CURRENT_USER|Software|VB and VBA Program Settings|YourAppName )
و يتم تخزين الأربعة أجزاء من الدالة تحت اسم App.EXEName , textboxes أما "text1" يعتبر المفتاح الأساسي في خط البيانات فى ملف ini .
2 - للقراءة :
text1.text = GetSetting (App.EXEName, "textboxes", "text1", "")
وبذلك يمكن تعريف متغير ويحتفظ بقيمته حتى بعد إنهاء البرنامج