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 := 75SaveSetting "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 intSettingsDeleteSetting "MyApp", "Startup"

Potřebujete další pomoc?

Chcete další možnosti?

Prozkoumejte výhody předplatného, projděte si školicí kurzy, zjistěte, jak zabezpečit své zařízení a mnohem více.

Komunity vám pomohou klást otázky a odpovídat na ně, poskytovat zpětnou vazbu a vyslechnout odborníky s bohatými znalostmi.