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í seznam nastavení kláves a jejich odpovídající hodnoty (původně vytvořené pomocí vlastnosti SaveSetting) z položky aplikace v registru Windows nebo (na počítačích Macintosh) z informací z inicializačního souboru aplikace.
Syntaxe
GetAllSettings(název_aplikace, oddíl)
Syntaxe funkce GetAllSettings 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, jehož nastavení kláves je požadováno. GetAllSettings vrátí Variant, jehož obsahem je dvourozměrné pole řetězců obsahující všechna nastavení kláves v zadaném oddílu a jejich odpovídající hodnoty. |
Poznámky
GetAllSettings vrátí neinicializovanou variantu , pokud appname nebo section neexistuje.
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 pro aplikaci určenou jako appname a poté pomocí funkce GetAllSettings zobrazí nastavení. Upozorňujeme, že názvy aplikací a názvy oddílů se nedají načíst pomocí GetAllSettings. Nakonec příkaz DeleteSetting odebere položky aplikace.
' 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"