حفظ الاختيار من القائمة في الريجيسترى واستعادته

up

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

صيغة الإجراء SaveSetting

Sub SaveSetting(AppName As String, Section As String, Key As String, Setting As String)

Member of VBA.Interaction

Saves a setting under the specified appname, section and key

مثال:

SaveSetting App.Title, "Settings", "SaveInText1", Trim(Text1.Text)

صيغة الوظيفة GetSetting

Function GetSetting(AppName As String, Section As String, Key As String, [Default]) As String

Member of VBA.Interaction

Returns a key setting value from an application's entry in the Windows registry

مثال:

Text1.Text = GetSetting(App.Title, "Settings", "SaveInText1")

شرف عظيم لي ان الاستاذ / عبد الله فتحي يقوم بالرد علي سؤالي

لكن مشكلتي هي مع حفظ الاختيار من القائمة لانه لا توجد خاصية ga1.value

و لا ادرى كيف يمكنني الاستعاضة عن تلك الخاصية

اكرر عظيم امتناني للاستاذ الفاضل / عبد الله

إطراء لا أستحقه أخي gaf58

بالنسبة للـ Value فأنت لا تحتاجه حيث بإمكانك حفظ القيمة "1" عند الضغط على ga1 والقيمة "2" عند الضغط على ga2 وهكذا وعند تحميل النموذج تقوم باسترجاع هذه القيمة أياً كانت

على أي حال قمت بتعديل المثال المرفق واستخدمت مصفوفة أدوات بدلاً من ثلاثة أدوات كما فعلت أنت

saveMenuCheck.rar

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

شكر الله لك اهتمامك و مساعدتك الكريمة

شكرا جزيلا