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 zoznam kľúčových nastavení a ich príslušné hodnoty (pôvodne vytvorené pomocou príkazu SaveSetting) z položky aplikácie v databáze Registry systému Windows alebo (v počítači Macintosh) informácií v súbore inicializácie aplikácie.
Syntax
GetAllSettings(názov aplikácie, sekcia)
Syntax funkcie GetAllSettings má tieto argumenty:
| Argument | Popis |
|---|---|
| názovaplikácie | Povinný argument. Reťazcový výraz obsahujúci názov aplikácie alebo projektu, ktorého kľúčové nastavenia sú povinné. 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, ktorej nastavenia kľúča sú povinné. Funkcia GetAllSettings vráti hodnotu typu Variant, ktorej obsah je dvojrozmerné pole reťazcov obsahujúcich všetky nastavenia kľúča v určenej sekcii a ich zodpovedajúce hodnoty. |
Poznámky:
Funkcia GetAllSettings vráti neinicializovaný variant , ak názov aplikácie alebo sekcia neexistuje.
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žíva príkaz SaveSetting na vytvorenie položiek v databáze Registry systému Windows pre aplikáciu zadaný ako názov aplikácie, potom sa na zobrazenie nastavení používa funkcia GetAllSettings . Upozorňujeme, že názvy aplikácií a sekcií nie je možné načítať pomocou funkcie GetAllSettings. Nakoniec príkaz DeleteSetting odstráni položky aplikácie.
' 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"