الدالة GetAllSettings

هام: تمت ترجمة هذه المقالة ترجمة آلية، راجع إقرار إخلاء المسؤولية. يرجى الاطلاع على النسخة الإنجليزية من هذه المقالة. هنا للرجوع إليها.

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

ارجاع قائمه ل# الاعدادات الاساسيه و# القيم الخاصه بها (تم انشاؤها ب# واسطه SaveSetting) من ادخال تطبيق في سجل Windows او (علي ماكنتوش) معلومات في ملف تهيئه ل# التطبيق.

بناء الجملة

GetAllSettings ( appname او المقطع )

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

الوسيطة

الوصف

appname

مطلوب. تعبير سلسله يتضمن اسم التطبيق او مشروع المطلوب الاعدادات الاساسيه الخاصه به. علي Macintosh، هذا هو اسم ملف التهيئه في المجلد "تفضيلات" في مجلد النظام.

مقطع

مطلوب. سلسله eتعبير يحتوي علي اسم المقطع المطلوب الاعدادات الاساسيه الخاصه به. ارجاع GetAllSettings متغير محتوياته عباره ثنائي الابعاد صفيف سلاسل الذي يحتوي علي كافه الاعدادات الاساسيه في الجزء المحدد و# القيم المطابقه الخاصه بها.


ملاحظات

ترجع الداله GetAllSettings لم تتم تهيئتها متغير في حاله عدم وجود اما appname او المقطع .

مثال

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

هذا المثال اولا يستخدم عباره واسطه SaveSetting ل# جعل ادخالات في سجل Windows ل# التطبيق المحدد ك appname، ثم يستخدم الداله GetAllSettings ل# عرض الاعدادات. تجدر الاشاره الي ان الاسماء التطبيق و# اسماء المقطع لا يمكن استرداد مع GetAllSettings. و# اخيرا، بيان ديليتيسيتينج ل# ازاله الادخالات الخاصه ب# التطبيق.

' 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"

ملاحظة: إقرار إخلاء المسؤولية للترجمة الآلية: تمت ترجمة هذه المقالة بواسطة نظام كمبيوتر دون تدخل العامل البشري. توفر Microsoft هذه الترجمات الآلية لمساعدة المستخدمين الذين لا يتحدثون الإنجليزية على استخدام منتجات Microsoft، وخدماتها، وتقنياتها والاستمتاع بها. قد تحتوي هذه المقالة على أخطاء في المفردات، أو بناء الجملة، أو القواعد نظرًا لترجمتها آليًا.

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

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

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

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

×