الدالة GetAllSettings

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

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

بناء الجملة

GetAllSettings ( appname , section )

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

الوسيطة

الوصف

appname

مطلوبة. تعبير سلسلة يحتوي على اسم التطبيق أو مشروع الذي تم طلب إعدادات المفتاح الخاصة به. على جهاز Macintosh، هذا هو اسم الملف لملف التشويش في مجلد "التفضيلات" في مجلد "النظام".

مقطع

مطلوبة. سلسلةxpression e تحتوي على اسم المقطع الذي يتم طلب إعدادات المفتاح الخاصة به. ترجع GetAllSettings متغيرا تكون محتوياته صفيف من السلاسل التي تحتوي على كل إعدادات المفاتيح في المقطع المحدد وقيمها المناظرة.


ملاحظات

تقوم GetAllSettings بإرجاع متغير غير مهيئ إذا لم يكن اسم التطبيق أو المقطع موجودا.

مثال

ملاحظة: توضح الأمثلة التالية استخدام هذه الدالة في وحدة نمطية في Visual Basic for Applications (VBA). لمزيد من المعلومات حول استخدام VBA، حدد "مرجع المطور" في القائمة المنسدل إلى جانب "البحث" وأدخل مصطلحا واحدا أو أكثر في مربع البحث.

يستخدم هذا المثال أولا العبارة SaveSetting لجعل الإدخالات في سجل Windows للتطبيق المحدد باسم التطبيق، ثم يستخدم الدالة GetAllSettings لعرض الإعدادات. لاحظ أنه لا يمكن استرداد أسماء التطبيقات وأسماء المقاطع باستخدام GetAllSettings. وأخيرا، تزيل العبارة DeleteSetting إدخالات التطبيق.

' Variant to hold 2-dimensional array returned by GetAllSettings
' Integer to hold counter.
Dim MySettings As Variant, intSettings As Integer
' Place some settings in the registry.
SaveSetting appname := "MyApp", section := "Startup", _
key := "Top", setting := 75
SaveSetting "MyApp","Startup", "Left", 50
' Retrieve the settings.
MySettings = GetAllSettings(appname := "MyApp", section := "Startup")
For intSettings = LBound(MySettings, 1) To UBound(MySettings, 1)
Debug.Print MySettings(intSettings, 0), MySettings(intSettings, 1)
Next intSettings
DeleteSetting "MyApp", "Startup"

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

تعزيز مهارات Office
استكشاف التدريب
الحصول على الميزات الجديدة أولاً
الانضمام إلى Office Insider

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

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

شكراً لك على الملاحظات! يبدو أنه من المفيد إيصالك بأحد وكلاء دعم Office لدينا.

×