ملاحظة
يتم تعطيل الوظيفة أو الطريقة أو العنصر أو الخاصية الموضحة في هذا الموضوع إذا كانت خدمة Microsoft Jet Expression Service قيد التشغيل في وضع الحماية، مما يمنع تقييم التعبيرات التي يحتمل أن تكون غير آمنة. لمزيد من المعلومات حول وضع الحماية، ابحث عن "وضع الحماية" في "تعليمات".
ترجع قيمة إعداد مفتاح من إدخال تطبيق في سجل Windows أو معلومات (في Macintosh) في ملف تهيئة التطبيق.
بناء الجملة
GetSetting(appname, section, key [, default] )
يحتوي بناء جملة الدالة GetSetting على الوسيطات التالية:
| الوسيطة | الوصف |
|---|---|
| اسم التطبيق | مطلوبة. تعبير سلسلة يحتوي على اسم التطبيق أو المشروع الذي تم طلب إعداد المفتاح له. في Macintosh، هذا هو اسم ملف التهيئة في مجلد التفضيلات في مجلد النظام. |
| مقطع | مطلوبة. تعبير سلسلة يحتوي على اسم المقطع حيث تم العثور على إعداد المفتاح. |
| مفتاح | مطلوبة. تعبير سلسلة يحتوي على اسم إعداد المفتاح المراد إرجاعه. |
| افتراضي | اختيارية. تعبير يحتوي على القيمة المراد إرجاعها إذا لم يتم تعيين قيمة في إعداد المفتاح. إذا تم حذف الإعداد الافتراضي ، فسيتم افتراض أنه سلسلة ذات طول صفري (""). |
ملاحظات
إذا لم يكن أي من العناصر المسماة في وسيطات GetSetting موجودا، فترجع GetSetting القيمة الافتراضية.
مثال
ملاحظة
توضح الأمثلة التالية استخدام هذه الدالة في وحدة نمطية ل Visual Basic for Applications (VBA). لمزيد من المعلومات حول استخدام VBA، حدد "مرجع المطور" في القائمة المنسدلة بجوار "بحث" وأدخل مصطلح أو أكثر في مربع البحث.
يستخدم هذا المثال أولا عبارة SaveSetting لإجراء إدخالات في سجل Windows (أو ملف .ini على أنظمة Windows الأساسية بالإصدار 16 بت) للتطبيق المحدد كاسم تطبيق، ثم يستخدم الدالة GetSetting لعرض أحد الإعدادات. نظرا لتحديد الوسيطة الافتراضية ، يضمن إرجاع بعض القيم. لاحظ أنه لا يمكن استرداد أسماء المقاطع باستخدام GetSetting. وأخيرا، تزيل عبارة DeleteSetting كل إدخالات التطبيق.
' Variant to hold 2-dimensional array returned
' by GetSetting.
Dim MySettings As Variant
' Place some settings in the registry.
SaveSetting "MyApp","Startup", "Top", 75
SaveSetting "MyApp","Startup", "Left", 50
Debug.Print GetSetting(appname := "MyApp", _
section := "Startup", _
key := "Left", default := "25")
DeleteSetting "MyApp", "Startup"