ملاحظة: يتم تعطيل الدالة أو الأسلوب أو الكائن أو الخاصية الموضحة في هذا الموضوع إذا كانت خدمة تعبير Microsoft Jet قيد التشغيل في وضع بيئة الاختبار المعزولة، مما يمنع تقييم التعبيرات التي يحتمل أن تكون غير آمنة. لمزيد من المعلومات حول وضع بيئة الاختبار المعزولة، ابحث عن "وضع بيئة الاختبار المعزولة" في التعليمات.
إرجاع قائمة بإعدادات المفاتيح والقيم الخاصة بها (التي تم إنشاؤها في الأصل باستخدام SaveSetting) من إدخال تطبيق في سجل Windows أو معلومات (على Macintosh) في ملف تهيئة التطبيق.
بناء الجملة
GetAllSettings ( appname , section )
يحتوي بناء جملة الدالة GetAllSettings على هذه الوسيطات:
|
الوسيطة |
الوصف |
|
اسم التطبيق |
مطلوبة. تعبير سلسلة يحتوي على اسم التطبيق أو مشروع التي يتم طلب إعدادات المفتاح الخاصة بها. في Macintosh، هذا هو اسم ملف التهيئة في مجلد التفضيلات في مجلد النظام. |
|
مقطع |
مطلوبة. سلسلة expression التي تحتوي على اسم القسم الذي يتم طلب إعدادات المفتاح الخاص به. ترجع 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"
