הערה
הפונקציה, פעולת השירות, האובייקט או המאפיין המתוארים בנושא זה אינם זמינים אם Microsoft Jet Expression Service פועל במצב ארגז חול (Sandbox), דבר שמונע הערכה של ביטויים שעלולים להיות לא בטוחים. לקבלת מידע נוסף על מצב ארגז חול, חפש "מצב ארגז חול" בעזרה.
החזרת רשימה של הגדרות מפתח והערכים המתאימים שלהן (שנוצרו במקור באמצעות SaveSetting) מערך של יישום ברישום של Windows או (ב- Macintosh) מידע בקובץ האתחול של היישום.
תחביר
GetAllSettings(appname, section)
תחביר הפונקציה GetAllSettings מכיל את הארגומנטים הבאים:
| ארגומנט | תיאור |
|---|---|
| שם אפליקציה | נדרש. ביטוי מחרוזת המכיל את שם היישום או הפרויקט שהגדרות המפתח שלו מתבקשות. ב- Macintosh, זהו שם הקובץ של קובץ האתחול בתיקיה Preferences בתיקייה System. |
| מקטע | נדרש. ביטוי מחרוזת המכיל את שם המקטע שאת הגדרות המפתח שלו תתבקש. הפונקציה GetAllSettings מחזירה משתנה שהתוכן שלו הוא מערך מחרוזות דו-ממדי המכיל את כל הגדרות המפתח במקטע שצוין ואת הערכים התואמים. |
הערות
הפונקציה GetAllSettings מחזירה משתנה שלא אותחל אם לא קיימים שם אפליקציה או מקטע .
דוגמה
הערה
הדוגמאות הבאות מדגימות את השימוש של פונקציה זו במודול Visual Basic for Applications (VBA). לקבלת מידע נוסף אודות עבודה עם VBA, בחר הפניית מפתח ברשימה הנפתחת שליד חיפוש והזן מונח אחד או יותר בתיבת החיפוש.
דוגמה זו משתמשת תחילה במשפט SaveSetting כדי ליצור ערכים ברישום של Windows עבור היישום שצוין כ - appname, ולאחר מכן משתמשת בפונקציה 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"