Uwaga
Funkcja, metoda, obiekt lub właściwość opisane w tym temacie są wyłączone, jeśli usługa wyrażeń Microsoft Jet działa w trybie piaskownicy, co uniemożliwia ocenę potencjalnie niebezpiecznych wyrażeń. Aby uzyskać więcej informacji o trybie piaskownicy, wyszukaj termin "tryb piaskownicy" w Pomocy.
Zwraca listę ustawień kluczy i odpowiadających im wartości (pierwotnie utworzonych za pomocą funkcji SaveSetting) z wpisu aplikacji w rejestrze systemu Windows lub (na komputerze Macintosh) informacji zawartych w pliku inicjującym aplikacji.
Składnia
GetAllSettings(appname, section)
W składni funkcji GetAllSettings występują następujące argumenty:
| Argumenty argumentów | Opis |
|---|---|
| appname (nazwa aplikacji) | Argument wymagany. Wyrażenie ciągu zawierające nazwę aplikacji lub projektu, którego ustawień klucza jest żądane. Na komputerze Macintosh jest to nazwa pliku inicjującego w folderze Preferencje w folderze System. |
| sekcja | Argument wymagany. Wyrażenie tekstowe zawierające nazwę sekcji, której ustawienia klucza są żądane. Funkcja GetAllSettings zwraca wartość typu Variant, której zawartość jest dwuwymiarową tablicą ciągów znaków zawierającą wszystkie ustawienia klawiszy w określonej sekcji i odpowiadające im wartości. |
Uwagi
Funkcja GetAllSettings zwraca niezainicjowany wariant , jeśli nie istnieje nazwa aplikacji lub sekcja .
Przykład
Uwaga
Poniższe przykłady przedstawiają sposób użycia tej funkcji w module języka Visual Basic for Applications (VBA). Aby uzyskać dodatkowe informacje na temat pracy w języku VBA, wybierz pozycję Dokumentacja dewelopera z listy rozwijanej obok przycisku Wyszukaj i wprowadź odpowiednie terminy w polu wyszukiwania.
W tym przykładzie najpierw użyto instrukcji SaveSetting w celu wprowadzenia wpisów w rejestrze systemu Windows dla aplikacji określonej jako appname, a następnie użyto funkcji GetAllSettings w celu wyświetlenia ustawień. Należy pamiętać, że nazwy aplikacji i nazwy sekcji nie mogą być pobierane za pomocą funkcji GetAllSettings. Na koniec instrukcja DeleteSetting usuwa wpisy aplikacji.
' 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"