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