Notă: Funcția, metoda, obiectul sau proprietatea descrise în acest subiect este dezactivată dacă Serviciul de expresii Microsoft Jet rulează în modul sandbox, ceea ce împiedică evaluarea expresiilor potențial nesigure. Pentru mai multe informații despre modul sandbox, căutați "modul sandbox" în Ajutor.
Returnează o listă de setări cheie și valorile lor (create inițial cu SaveSetting) dintr-o intrare de aplicație în registry Windows sau (pe Macintosh) informații din fișierul de inițializare al aplicației.
Sintaxă
GetAllSettings ( nume aplicație , secțiune )
Sintaxa funcției GetAllSettings are următoarele argumente:
|
Argument |
Descriere |
|
nume aplicație |
Obligatoriu. Expresie șir care conține numele aplicației sau al proiect ale căror setări de cheie sunt solicitate. Pe Macintosh, acesta este numele fișierului de inițializare din folderul Preferințe din folderul Sistem. |
|
secțiune |
Obligatoriu. String expression containing the name of the section whose key settings are requested. GetAllSettings returnează o valoare Variant al cărei conținut este o matrice bidimensională de șiruri care conține toate setările cheie din secțiunea specificată și valorile lor corespunzătoare. |
Observații
GetAllSettings returnează o valoare variant neinițializată dacă nu există un nume de aplicație 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 nume de aplicație, apoi utilizează funcția GetAllSettings pentru a afișa setările. Rețineți că numele de aplicații și de secțiuni nu pot fi regăsite cu GetAllSettings. În sfârșit, 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"
