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 izolovaného prostoru (sandbox), který znemožňuje vyhodnocení potenciálně nebezpečných výrazů. Další informace o režimu izolovaného prostoru vyhledáte zadáním dotazu "režim izolovaného prostoru" v nápovědě.
Vrátí hodnotu nastavení klíče z položky aplikace v registru systému Windows nebo informace (na počítačích Macintosh) z inicializačního souboru aplikace.
Syntaxe
GetSetting(název_aplikace, oddíl, klávesa [, výchozí ] )
Syntaxe funkce GetSetting obsahuje tyto argumenty:
| Argument | Popis |
|---|---|
| název aplikace | Povinný argument. Řetězcový výraz obsahující název aplikace nebo projektu, jehož nastavení klíče je požadováno. Na počítači Macintosh se jedná o název inicializačního souboru ve složce Preferences (Předvolby) ve složce System. |
| Sekce | Povinný argument. Řetězcový výraz obsahující název oddílu, ve kterém se nachází nastavení klávesy. |
| klíč | Povinný argument. Řetězcový výraz obsahující název nastavení klíče, které má být vráceno. |
| výchozí | Nepovinný argument. Výraz obsahující hodnotu, která má být vrácena, pokud není v nastavení klíče nastavena žádná hodnota. Pokud tento argument vynecháte, předpokládá se, že jako výchozí hodnota je řetězec nulové délky (""). |
Poznámky
Pokud některá z položek pojmenovaných v argumentech GetSetting neexistuje, vrátí funkce GetSetting výchozí hodnotu.
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žívá 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 appname a poté pomocí funkce GetSetting zobrazí jedno z nastavení. Protože je zadán výchozí argument, je zaručeno, že vrátí určitou hodnotu. Všimněte si, ž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"