ملاحظة: يتم تعطيل الدالة أو الأسلوب أو الكائن أو الخاصية الموضحة في هذا الموضوع إذا كانت خدمة Microsoft Jet Expression Service قيد التشغيل في وضع الحماية، مما يمنع تقييم التعبيرات التي قد تكون غير آمنة. لمزيد من المعلومات حول وضع الحماية، ابحث عن "وضع الحماية" في "تعليمات".

ترجع قيمة إعداد مفتاح من إدخال تطبيق في سجل Windows أو معلومات (على Macintosh) في ملف تهدي التطبيق.

بناء الجملة

GetSetting ( appname ,section, key [ ,default ] )

بناء جملة الدالة GetSetting به هذه الوسيطات:

الوسيطة

الوصف

appname

مطلوبة. تعبير السلسلة اسم التطبيق أو المشروع المطلوب إعداد المفتاح الخاص به. في 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"

هل تحتاج إلى مزيد من المساعدة؟

توسيع المهارات

استكشاف التدريب >

الحصول على الميزات الجديدة أولاً

الانضمام إلى MICROSOFT INSIDERS >

هل كانت المعلومات مفيدة؟

ما مدى رضاك عن جودة اللغة؟
ما الذي أثّر في تجربتك؟

نشكرك على ملاحظاتك!

×