Poznámka: Funkce, metoda, objekt nebo vlastnost popsaná v tomto tématu jsou zakázány, pokud je služba Microsoft Jet Expression Service spuštěna v režimu sandboxu, což brání vyhodnocení potenciálně nebezpečných výrazů. Další informace o režimu sandboxu najdete v nápovědě pro "režim sandboxu".
Vrátí hodnotu nastavení klíče z položky aplikace v registru systému Windows nebo (na Macintoshi) informace v inicializačním souboru aplikace.
Syntaxe
GetSetting ( název_aplikace ; oddíl; klíč [; výchozí ] )
Syntaxe funkce GetSetting má tyto argumenty:
|
Argument |
Popis |
|
Appname |
Povinný argument. Řetězcový výraz obsahující název aplikace nebo projektu, jehož nastavení klíče je požadováno. V systému Macintosh se jedná o název souboru inicializačního souboru ve složce Předvolby ve složce Systém. |
|
Sekce |
Povinný argument. Řetězcový výraz obsahující název oddílu, ve kterém se nachází nastavení klíče. |
|
klávesa |
Povinný argument. Řetězcový výraz obsahující název nastavení klíče, které se má vrátit. |
|
výchozí |
Nepovinný argument. Výraz obsahující hodnotu, která se má vrátit, pokud není v nastavení klíče nastavena žádná hodnota. Pokud je vynechán, předpokládá se, že def ault je řetězec nulové délky (""). |
Poznámky
Pokud některá z položek pojmenovaných v argumentech GetSetting neexistuje, vrátí Funkce GetSetting hodnotu default.
Příklad
Poznámka: Následující příklady ukazují použití této funkce v modulu VBA (Visual Basic pro Applications). Pokud chcete další informace o práci s modulem VBA, vyberte Referenční informace pro vývojáře, které najdete v rozevíracím seznamu vedle položky Hledat a do vyhledávacího pole napište požadované pojmy.
Tento příklad nejprve použije příkaz SaveSetting k vytvoření položek v registru Systému Windows (nebo .ini souboru na 16bitových platformách Windows) pro aplikaci určenou jako název_aplikace a pak použije funkci GetSetting k zobrazení jednoho z nastavení. Vzhledem k tomu, že je zadán výchozí argument, je zaručeno, že se vrátí některá hodnota. Mějte na paměti, že názvy oddílů se nedají načíst pomocí GetSetting. Nakonec příkaz DeleteSetting odebere všechny položky aplikace.
' 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"
