הפונקציה GetAllSettings

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

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

תחביר

GetAllSettings ( appname , section )

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

ארגומנט

תיאור

appname

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

מקטע‏

נדרש. מחרוזת e-xpress המכילה את שם המקטע שאת הגדרות המפתח שלו נדרשות. GetAllSettings מחזירה Variant שהתוכן שלו הוא מערך דו-ממדי של מחרוזות המכילות את כל הגדרות המפתח במקטע שצוין והערכים התואמים שלהם.


הערות

הפונקציה GetAllSettings מחזירה Variant שאינו מאותחל אם אחד מappname או המקטע אינו קיים.

דוגמה

הערה: הדוגמאות הבאות מדגימות את השימוש של פונקציה זו במודול 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"

זקוק לעזרה נוספת?

שפר את הכישורים שלך ב- Office
סייר בהדרכה
קבל תכונות חדשות לפני כולם
הצטרף למשתתפי Office Insider

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

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

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

×