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"