הערה
הפונקציה, פעולת השירות, האובייקט או המאפיין המתוארים בנושא זה אינם זמינים אם Microsoft Jet Expression Service פועל במצב ארגז חול (Sandbox), דבר שמונע הערכה של ביטויים שעלולים להיות לא בטוחים. לקבלת מידע נוסף על מצב ארגז חול, חפש "מצב ארגז חול" בעזרה.
החזרת ערך הגדרת מפתח מערך של יישום ברישום של Windows או (ב- Macintosh) בקובץ האתחול של האפליקציה.
תחביר
GetSetting(appname, section, key [, default ] )
תחביר הפונקציה GetSetting מכיל את הארגומנטים הבאים:
| ארגומנט | תיאור |
|---|---|
| שם אפליקציה | נדרש. ביטוי מחרוזת המכיל את שם היישום או הפרויקט שהגדרת המפתח שלו מתבקשת. ב- Macintosh, זהו שם הקובץ של קובץ האתחול בתיקיה Preferences בתיקייה System. |
| מקטע | נדרש. ביטוי מחרוזת המכיל את שם המקטע שבו נמצאת הגדרת המפתח. |
| מפתח | נדרש. ביטוי מחרוזת המכיל את שם הגדרת המפתח שיש להחזיר. |
| ברירת מחדל | אופציונלי. ביטוי המכיל את הערך שיש להחזיר אם לא הוגדר ערך בהגדרת המפתח. אם הוא מושמט, הפונקציה מניחה כי ברירת המחדל היא מחרוזת באורך אפס (""). |
הערות
אם אחד מהפריטים ששמם מופיע בארגומנטים של GetSetting אינו קיים, הפונקציה GetSetting מחזירה את ערך ברירת המחדל.
דוגמה
הערה
הדוגמאות הבאות מדגימות את השימוש של פונקציה זו במודול Visual Basic for Applications (VBA). לקבלת מידע נוסף אודות עבודה עם VBA, בחר הפניית מפתח ברשימה הנפתחת שליד חיפוש והזן מונח אחד או יותר בתיבת החיפוש.
דוגמה זו משתמשת תחילה במשפט SaveSetting כדי ליצור ערכים ברישום של Windows (או בקובץ .ini בפלטפורמות Windows של 16 סיביות) עבור היישום שצוין כ- appname, ולאחר מכן משתמשת בפונקציה GetSetting כדי להציג את אחת מההגדרות. מאחר שצוין ארגומנט ברירת המחדל , מובטח שיוחזר ערך מסוים. שים לב שלא ניתן לאחזר שמות מקטעים באמצעות GetSetting. לסיום, המשפט DeleteSetting מסיר את כל ערכי היישום.
' Variant to hold 2-dimensional array returned
' by GetSetting.
Dim MySettings As Variant
' Place some settings in the registry.
SaveSetting "MyApp","Startup", "Top", 75
SaveSetting "MyApp","Startup", "Left", 50
Debug.Print GetSetting(appname := "MyApp", _
section := "Startup", _
key := "Left", default := "25")
DeleteSetting "MyApp", "Startup"