ملاحظة: يتم تعطيل الدالة أو الأسلوب أو الكائن أو الخاصية الموضحة في هذا الموضوع إذا كانت خدمة تعبير Microsoft Jet قيد التشغيل في وضع بيئة الاختبار المعزولة، مما يمنع تقييم التعبيرات التي يحتمل أن تكون غير آمنة. لمزيد من المعلومات حول وضع بيئة الاختبار المعزولة، ابحث عن "وضع بيئة الاختبار المعزولة" في التعليمات.
إرجاع قيمة إعداد مفتاح من إدخال تطبيق في سجل Windows أو معلومات (على Macintosh) في ملف تهيئة التطبيق.
بناء الجملة
GetSetting ( appname , section, key [, default ] )
يحتوي بناء جملة الدالة GetSetting على هذه الوسيطات:
|
الوسيطة |
الوصف |
|
اسم التطبيق |
مطلوبة. تعبير السلسلة تحتوي على اسم التطبيق أو المشروع المطلوب إعداد المفتاح الخاص به. في Macintosh، هذا هو اسم ملف التهيئة في مجلد التفضيلات في مجلد النظام. |
|
مقطع |
مطلوبة. تعبير سلسلة يحتوي على اسم المقطع حيث تم العثور على إعداد المفتاح. |
|
مفتاح |
مطلوبة. تعبير سلسلة يحتوي على اسم إعداد المفتاح المراد إرجاعه. |
|
افتراضي |
اختيارية. تعبير يحتوي على القيمة المراد إرجاعها إذا لم يتم تعيين قيمة في إعداد المفتاح. إذا تم حذفها، فمن المفترض أن تكون default سلسلة ذات طول صفري (""). |
ملاحظات
إذا لم يكن أي من العناصر المسماة في وسيطات 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", 75SaveSetting "MyApp","Startup", "Left", 50Debug.Print GetSetting(appname := "MyApp", _ section := "Startup", _ key := "Left", default := "25")DeleteSetting "MyApp", "Startup"
