Funkcia GetAllSettings

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ľúčov a ich príslušných hodnôt (pôvodne vytvorených pomocou SaveSetting) z položky aplikácie v databáze Registry systému Windows alebo v informáciách o systéme Macintosh v inicializačnom súbore aplikácie.

Syntax

GetAllSettings ( názov programu; sekcia)

Syntax funkcie GetAllSettings má tieto argumenty:

Argument

Popis

názovaplikácie

Povinný argument. Výraz reťazca s názvom aplikácie alebo projekt, ktorého nastavenie kľúča sa požaduje. V počítači Macintosh je to názov súboru inicializácie v priečinku Preferencie v priečinku System.

sekcia

Povinný argument. Xpress (reťazec e) s názvom sekcie, ktorej nastavenia kľúča sa požadujú. GetAllSettings vráti hodnotu typu variant, ktorej obsah je dvojrozmerný pole reťazcov obsahujúcich všetky kľúčové nastavenia v zadanej sekcii a ich zodpovedajúce hodnoty.


Poznámky

GetAllSettings vráti neinicializovanú verziu , ak buď názov programu 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žije príkaz SaveSetting na vytvorenie položiek v databáze Registry systému Windows pre aplikáciu zadanú ako názovprogramu, potom použije funkciu GetAllSettings na zobrazenie nastavení. Všimnite si, že názvy aplikácií a názvy sekcií nie je možné načítať pomocou 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"

Potrebujete ďalšiu pomoc?

Rozšírte svoje zručnosti práce s balíkom Office
Preskúmať školenie
Buďte medzi prvými, ktorí získajú nové funkcie
Pridajte sa k insiderom pre Office

Boli tieto informácie užitočné?

Ďakujeme za vaše pripomienky!

Ďakujeme vám za pripomienky. Pravdepodobne vám pomôže, ak vás spojíme s pracovníkom podpory pre Office.

×