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 valoare de setare cheie 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ă
GetSetting(appname, section, key [, implicit])
Sintaxa funcției GetSetting are următoarele argumente:
| Argument | Descriere |
|---|---|
| Nume aplicație | Obligatoriu. Expresie șir care conține numele aplicației sau proiectului a cărui setare de cheie este solicitată. 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 în care se găsește setarea cheie. |
| de acces | Obligatoriu. Expresie șir care conține numele setării de cheie de returnat. |
| implicit | Opțional. Expresie care conține valoarea de returnat dacă nu se setează nicio valoare în setarea cheii. Dacă este omisă, valoarea implicită este considerată a fi un șir de lungime zero (""). |
Observații
Dacă oricare dintre elementele denumite în argumentele GetSetting nu există, GetSetting returnează valoarea implicită.
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ă pentru prima dată instrucțiunea SaveSetting pentru a efectua intrări în registry Windows (sau în fișierul .ini de pe platformele Windows pe 16 biți) pentru aplicația specificată ca appname, apoi utilizează funcția GetSetting pentru a afișa una dintre setări. Deoarece este specificat argumentul implicit , este garantat că se returnează o anumită valoare. Rețineți că numele secțiunilor nu pot fi regăsite cu GetSetting. În cele din urmă, instrucțiunea DeleteSetting elimină toate intrările aplicației.
' Variant to hold 2-dimensional array returned
' by GetSetting.
Dim MySettings As Variant
' Place some settings in the registry.
SaveSetting "MyApp","Startup", "Top", 75
SaveSetting "MyApp","Startup", "Left", 50
Debug.Print GetSetting(appname := "MyApp", _
section := "Startup", _
key := "Left", default := "25")
DeleteSetting "MyApp", "Startup"