Notă: Funcția, metoda, obiectul sau proprietatea descrisă în acest subiect este dezactivată dacă serviciul Microsoft Jet Expression rulează în modul sandbox, ceea ce împiedică evaluarea expresiilor potențial nesigure. Pentru mai multe informații despre modul sandbox, căutați "mod sandbox" în ajutor.
Returnează o listă de setări cheie și valorile lor respective (create inițial cu SaveSetting) din intrarea unei aplicații în registry Windows sau (pe Macintosh) din informațiile din fișierul de inițializare al aplicației.
Sintaxă
GetAllSettings ( AppName , secțiune )
Sintaxa funcției GetAllSettings are următoarele argumente:
|
Argument |
Descriere |
|
AppName |
Obligatoriu. Expresie șir care conține numele aplicației sau proiect ale căror setări cheie sunt solicitate. Pe Macintosh, acesta este numele fișierului de inițializare din folderul Preferințe din folderul sistem. |
|
secțiune |
Obligatoriu. E-Xpress șir care conține numele secțiunii ale cărui setări cheie sunt solicitate. GetAllSettings returnează o valoare Variant al cărei conținut este un matrice bidimensional de șiruri care conține toate setările de cheie din secțiunea specificată și valorile corespunzătoare. |
Observații
GetAllSettings returnează o variantă neinițializată dacă nu există niciun AppName sau o secțiune .
Exemplu
Notă: Exemplele care urmează demonstrează utilizarea acestei funcții într-un modul Visual Basic for Applications (VBA). Pentru mai multe informații despre lucrul cu VBA, selectați Referințe pentru dezvoltatori în lista verticală de lângă Căutare și introduceți unul sau mai mulți termeni în caseta de căutare.
Acest exemplu utilizează mai întâi instrucțiunea SaveSetting pentru a face intrări în registry Windows pentru aplicația specificată ca AppName, apoi utilizează funcția GetAllSettings pentru a afișa setările. Rețineți că numele aplicațiilor și numele de secțiuni nu pot fi regăsite cu GetAllSettings. În cele din urmă, instrucțiunea DeleteSetting elimină intrările aplicației.
' 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"
