הפונקציה GetSetting

הערה:  אנו מעוניינים לספק לך את תוכן העזרה העדכני ביותר במהירות האפשרית, בשפה שלך. דף זה תורגם באמצעות אוטומציה והוא עשוי לכלול שגיאות דקדוק או אי-דיוקים. מטרתנו היא כי תוכן זה יהיה שימושי עבורך. האם תוכל לספר לנו אם המידע הועיל לך, בחלק התחתון של דף זה? לנוחותך, הנה המאמר באנגלית .

הערה: הפונקציה, שיטת, אובייקט או מאפיין המתוארים בנושא זה אינה זמינה אם שירות Microsoft Jet ביטוי פועל במצב ארגז חול, המונעת להערכה של ביטויים העשויים להיות לא בטוחים. לקבלת מידע נוסף אודות מצב ארגז חול, חפש "מצב sandbox" בעזרה.

החזרת ערך הגדרת מפתח מתוך הערך של יישום ברישום של Windows או (ב- Macintosh) מידע בקובץ האתחול של היישום.

תחביר

GetSetting ( appname מקטע, מפתח [ברירת המחדל ] )

תחביר הפונקציהgGetSettinכולל את הארגומנטים הבאים:

ארגומנט

תיאור

appname

נדרש. ביטוי מחרוזת המכיל את שם היישום או הפרוייקט אשר נדרשת הגדרת המפתח שלו. ב- Macintosh, זהו שם הקובץ של קובץ אתחול בתיקיה העדפות בתיקיית המערכת.

מקטע

נדרש. ביטוי מחרוזת המכיל את שם המקטע שבו נמצא הגדרת המפתח.

מפתח

נדרש. ביטוי מחרוזת המכיל את השם של הגדרת המפתח להחזרת.

ברירת מחדל

אופציונלי. ביטוי המכיל את הערך להחזרת אם ערך אינו מוגדר בהגדרת המפתח. אם לא צוין, ברירתמחדל הוא ייחשב מחרוזת באורך אפס ("").


הערות

אם אחד מהפריטים בשם בארגומנטים 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"
שפר את הכישורים שלך ב- Office
סייר בהדרכה
קבל תכונות חדשות לפני כולם
הצטרף למשתתפי Office Insider

האם מידע זה היה שימושי?

תודה על המשוב!

תודה על המשוב! נראה שכדאי לקשר אותך לאחד מנציגי התמיכה של Office.

×