Uwaga: Funkcja, metoda, obiekt lub właściwość opisana w tym temacie jest wyłączona, jeśli usługa wyrażeń Microsoft Jet działa w trybie piaskownicy, co uniemożliwia oszacowanie potencjalnie niebezpiecznych wyrażeń. Aby uzyskać więcej informacji na temat trybu piaskownicy, wyszukaj "tryb piaskownicy" w Pomocy.
Zwraca listę ustawień kluczy i odpowiednie wartości (pierwotnie utworzone przy użyciu funkcji SaveSetting) z wpisu aplikacji w rejestrze systemu Windows lub (na komputerze Macintosh) informacji w pliku inicjowania aplikacji.
Składnia
GetAllSettings ( nazwa_aplikacji ; sekcja )
W składni funkcji GetAllSettings występują następujące argumenty:
|
Argument |
Opis |
|
Appname |
Argument wymagany. Wyrażenie ciągu zawierające nazwę aplikacji lub projekt którego wymagane są ustawienia klucza. Na komputerze Macintosh jest to nazwa pliku inicjowania w folderze Preferencje w folderze System. |
|
sekcja |
Argument wymagany. Ciąg expression zawierający nazwę sekcji, której wymagane są ustawienia klucza. Funkcja GetAllSettings zwraca wartość typu wariant, której zawartość jest dwuwymiarowym tablica ciągów zawierających wszystkie ustawienia kluczy w określonej sekcji i odpowiadające im wartości. |
Spostrzeżenia
Jeśli nazwa aplikacji lub sekcja nie istnieje, funkcja GetAllSettings zwraca niezainicjowany wariant.
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 jest używana instrukcja SaveSetting do wprowadzania wpisów w rejestrze systemu Windows dla aplikacji określonej jako nazwa aplikacji, a następnie do wyświetlania ustawień jest używana funkcja GetAllSettings . Należy pamiętać, że nazwy aplikacji i nazwy sekcji nie mogą być pobierane z 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"
