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í seznam nastavení klíče a jejich odpovídající hodnoty (původně vytvořené pomocí SaveSetting) z položky aplikace v registru systému Windows nebo (na Macintosh) informace v inicializačním souboru aplikace.
Syntaxe
GetAllSettings ( název aplikace , oddíl )
Syntaxe funkce GetAllSettings má tyto argumenty:
Argument |
Popis |
Appname |
Povinný argument. Řetězcový výraz obsahující název aplikace nebo Projekt, 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ězec expression obsahující název oddílu, jehož nastavení klíče jsou požadována. GetAllSettings vrátí hodnotu Variant, jejíž obsah je dvojrozměrná Matice řetězců obsahujících všechna nastavení klíče v zadané části a jejich odpovídající hodnoty. |
Poznámky
GetAllSettings vrátí neinicializovanou variantu , pokud neexistuje název aplikace nebo oddíl .
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 pro aplikaci určenou jako název_aplikace a pak použije funkci GetAllSettings k zobrazení nastavení. Mějte na paměti, že názvy aplikací a názvů oddílů nelze 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"