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 nastavení kľúča a ich príslušné hodnoty (pôvodne vytvorené pomocou funkcie SaveSetting) z položky aplikácie v databáze Registry systému Windows alebo (v počítačoch Macintosh) informácií v inicializovanom súbore aplikácie.
Syntax
GetAllSettings ( názov aplikácie , sekcia )
Syntax funkcie GetAllSettings obsahuje tieto argumenty:
|
Argument |
Popis |
|
názovaplikácie |
Povinný argument. Reťazcový výraz obsahujúci názov aplikácie alebo projekt, ktorých nastavenia kľúča sú 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ťazec expression obsahujúci názov sekcie, ktorej nastavenia kľúča sú požadované. Funkcia GetAllSettings vráti variant, ktorého obsah je dvojrozmerným pole reťazcov obsahujúcich všetky nastavenia kľúča v zadanej sekcii a príslušné 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.
Tento príklad najprv používa príkaz SaveSetting na vytváranie položiek v databáze Registry systému Windows pre aplikáciu určenú ako názov aplikácie a potom na zobrazenie nastavení použije funkciu GetAllSettings . Všimnite si, že názvy aplikácií a názvy 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"
