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 valoare de setare cheie din intrarea unei aplicații din registry Windows sau (pe Macintosh) informații din fișierul de inițializare al aplicației.
Sintaxă
GetSetting ( nume aplicație , secțiune, cheie [, 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 cheie este solicitată. Pe Macintosh, acesta este numele fișierului de inițializare din folderul Preferințe din folderul Sistem. |
secțiune |
Obligatoriu. Expresie șir care conține numele secțiunii unde se găsește setarea de cheie. |
de acces |
Obligatoriu. Expresie șir care conține numele setării cheie de returnat. |
implicit |
Opțional. Expresie care conține valoarea de returnat dacă nu este setată nicio valoare în setarea cheie. Dacă este omis, se consideră că default este 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ă mai întâi instrucțiunea SaveSetting pentru a efectua intrări în registry Windows (sau .ini fișier pe platforme Windows pe 16 biți) pentru aplicația specificată ca nume de aplicație, apoi utilizează funcția GetSetting pentru a afișa una dintre setări. Deoarece argumentul implicit este specificat, se garantează că se returnează o parte din valoare. Rețineți că numele de secțiuni nu pot fi regăsite cu GetSetting. În sfârșit, 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"