הפונקציה GetAllSettings

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

תחביר

GetAllSettings(appname, section)

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

ארגומנט	תיאור
שם אפליקציה	נדרש. ביטוי מחרוזת המכיל את שם היישום או הפרוייקט שהגדרות המפתח שלו נדרשות. ב- Macintosh, זהו שם הקובץ של קובץ האתחול בתיקיה Preferences בתיקיה System.
מקטע‏	נדרש. ביטוי מחרוזת המכיל את שם המקטע שאת הגדרות המפתח שלו התבקשו. GetAllSettings מחזיר משתנה שהתוכן שלו הוא מערך דו-ממדי של מחרוזות המכיל את כל הגדרות המפתח במקטע שצוין והערכים התואמים שלהן.

    

הערות

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

דוגמה

דוגמה זו משתמשת תחילה במשפט 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"