[ziyad ayyash]

السلام عليكم ورحمة الله وبركاته
أريد كود vb6.0 لحفظ التغييرات الواردة على الفورم , بحيث عند اغلاق البرنامج واعادة تشغيله أستعيد كل المعلومات لاخر عملية تغيير. وشكرا.......
 

[Amir_Alzubidy]

السلام عليكم
بالمرفقات

[asto]

كيف يمكن حفظ لست

[Amir_Alzubidy]

حفظ ما يتغير في الـ 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", "")
وبذلك يمكن تعريف متغير ويحتفظ بقيمته حتى بعد إنهاء البرنامج