הפונקציה GetAllSettings

חשוב: מאמר זה תורגם בתרגום מכונה, ראה כתב ויתור. תוכל למצוא את הגרסה באנגלית של המאמר כאן לעיונך.

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

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

תחביר

הפונקציה GetAllSettings ( appname מקטע )

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

ארגומנט

תיאור

appname

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

מקטע

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


הערות

הפונקציה GetAllSettings מחזירה מאותחלים משתנה אם באפשרות 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"

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

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

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

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

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

×