Poznámka
Funkcia, metóda, objekt alebo vlastnosť, ktoré sú popísané v tejto téme, sú vypnuté, ak je služba Microsoft Jet Expression Service spustená v režime karantény, ktorý zabraňuje vo vyhodnocovaní možných nebezpečných výrazov. Ďalšie informácie o režime karantény nájdete vyhľadaním výrazu „režim karantény“ v Pomocníkovi.
Vráti hodnotu kľúča nastavenia z položky aplikácie v databáze Registry systému Windows alebo (v počítači Macintosh) informácie v súbore inicializácie aplikácie.
Syntax
GetSetting(názov aplikácie, sekcia, kľúč [, predvolené ] )
Syntax funkcie GetSetting obsahuje tieto argumenty:
| Argument | Popis |
|---|---|
| názovaplikácie | Povinný argument. reťazcový výraz obsahujúci názov aplikácie alebo projektu, ktorého nastavenie kľúča je požadované. V počítači Macintosh je to názov súboru inicializácie v priečinku Preferencie v priečinku System. |
| sekcia | Povinný argument. Reťazcový výraz obsahujúci názov sekcie, kde sa nachádza nastavenie kľúča. |
| kľúč | Povinný argument. Reťazcový výraz obsahujúci názov nastavenia kľúča na vrátenie. |
| predvolená hodnota | Voliteľný argument. Výraz obsahujúci hodnotu, ktorá sa má vrátiť, ak žiadna hodnota nie je nastavená v nastavení kľúča. Ak tento argument nezadáte, predvolená hodnota sa považuje za reťazec s nulovou dĺžkou (""). |
Poznámky:
Ak niektorá z položiek uvedených v argumentoch GetSetting neexistuje, funkcia GetSetting vráti predvolenú hodnotu.
Príklad
Poznámka
Nasledujúce príklady ukazujú použitie tejto funkcie v module jazyka Visual Basic for Applications (VBA). Ak chcete získať ďalšie informácie o práci s jazykom VBA, vyberte z rozbaľovacieho zoznamu vedľa položky Hľadať možnosť Odkaz pre vývojára a do vyhľadávacieho poľa zadajte nejaké výrazy.
V tomto príklade sa najprv použije príkaz SaveSetting na vytvorenie položiek v databáze Registry systému Windows (alebo .ini súbor na 16-bitovej platforme Windows) pre aplikáciu zadanú ako názov aplikácie a potom použije funkciu GetSetting na zobrazenie niektorého z nastavení. Keďže je zadaný predvolený argument, je zaručené vrátenie určitej hodnoty. Všimnite si, že pomocou funkcie GetSetting nie je možné načítať názvy sekcií. Na záver, príkaz DeleteSetting odstráni všetky položky aplikácie.
' 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"