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