Notă
Funcția, metoda, obiectul sau proprietatea descrisă în acest subiect este dezactivată dacă Microsoft Jet Expression Service 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 de cheie și valorile lor (create inițial cu SaveSetting) dintr-o intrare de aplicație în registry Windows sau informații (de pe Macintosh) din fișierul de inițializare al aplicației.
Sintaxă
GetAllSettings(numeaplicaț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 proiectului ale cărui setări de cheie sunt solicitate. Pe Macintosh, acesta este numele fișierului de inițializare din folderul Preferințe din folderul de sistem. |
| secțiune | Obligatoriu. Expresie șir care conține numele secțiunii ale cărei setări de cheie sunt solicitate. GetAllSettings returnează o 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 variantă neinițializată dacă appname sau section nu există.
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ă întâi instrucțiunea SaveSetting pentru a efectua intrări în registry-ul 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 secțiunilor 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"