حفظ التغيرات مره واحدا

أخي الكريم تستطيع حفظ البيانات باستخدام الدالة Savesetting

الصيغة العامة لها

savesetting application_name,section_name,key_name in Regestry ,settings

مثال:

savesetting "project1","project","test",text1.text

اخي العزيز / mostafazidani

انا اعلم الدالتين savesetting وgetsetting .

فبدل ما اقوله savesetting لـتكست1 وتكست2 هل استطيع ان يوجد كود يقوم بحفظ التغيرات مره واحده على كل الادوات بكل الخصائص.

اتمنى ان يكون هذا المطلوب واذا لم يكن أخبرني

أخوك مصطفى زيداني

saveall.zip

السلام عليكم

اخواني

طيب حفظتها كيف استرجعها

السلام عليكم ورحمة الله وبركاته

تستطيع استرجاع المفتاح باستخدام الداله

GetSetting

وذلك بهذه الصيغة

Text3.Text = GetSetting(App.Title, "Settings", "SaveIntext3")

الاخ mostafazidani المثال لا يعمل ولا يقم بحفظ التغيرات ما الخبر ؟؟؟؟؟؟؟

اخوي عاشق

كود الحفظ

savesetting "project1","project","test",text3.text

كود استرجاع

Text3.Text = GetSetting(App.Title, "Settings", "SaveIntext3")

لم يحفظ يا خوي شي

أخي عاشق لا أظن أن هناك طريقة جاهزة لذلك ، بل يجب كما ذكر الأخ مصطفى أن تقوم بعمل ذلك يدوياً من خلال الدالتين SaveSetting و GetSetting ..

ومن خلال جمل التكرار يمكنك تنفيذ ذلك بسرعة أكبر وبجمل أقل، ولكن لا بد من تحديد الإعدادات التي تريد حفظها بالضبط

هنا سأعطيك مثالاً

إذا كان لدينا نموذج يحتوي على مربعات نصوص كثيرة ( غير محددة العدد ) ، وهذه المربعات تحتوي على معلومات أريد إبقائها حتى بعد إنهاء البرنامج

لذلك سأضع كود الحفظ في حدث الـ Unload للنموذج

   Dim C As Control
   For Each C In Me
       If TypeOf C Is TextBox Then
       SaveSetting App.EXEName, "Setting", C.Name, C.Text
       End If
   Next C

وكود الاسترجاع في حدث الـ Load للنموذج

   Dim C As Control
   For Each C In Me
       If TypeOf C Is TextBox Then
       C.Text = GetSetting(App.EXEName, "Setting", C.Name, "Error")
       End If
   Next C

بالتوفيق

الف شكر ياستاذي الفاضل /عبدالله فتحي

نحلت مشكلتي

يعطيكم العافية