Funkcja GetAllSettings

Uwaga: Funkcja, metoda, obiekt lub właściwość opisana w tym temacie jest wyłączona, jeśli usługa wyrażeń programu Microsoft Jet działa w trybie piaskownicy, co uniemożliwia ocenę potencjalnie niebezpiecznych wyrażeń. Aby uzyskać więcej informacji na temat trybu piaskownicy, wyszukaj "tryb piaskownicy" w Pomocy.

Zwraca listę ustawień klucza i odpowiednich wartości (pierwotnie utworzonych za pomocą funkcji SaveSetting)z wpisu aplikacji w rejestrze systemu Windows lub (na komputerze Macintosh) z pliku inicjowania aplikacji.

Składnia

GetAllSettings (nazwa_aplikacji, sekcja)

W składni funkcji GetAllSettings występują następujące argumenty:

Argument

Opis

nazwa_aplikacji

Argument wymagany. Wyrażenie ciągu zawierające nazwę aplikacji lub nazwę projekt, których ustawienia klucza są wymagane. 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 ustawienia klucza są wymagane. Funkcja GetAllSettings zwraca wariant, którego zawartość jest dwuwymiarową tablica ciągów zawierającą wszystkie ustawienia klucza w określonej sekcji i odpowiadające im wartości.


Spostrzeżenia

Funkcja GetAllSettings zwraca niezainicjowany wariant, jeśli nazwa_aplikacji lub sekcja nie istnieje.

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 do wpisów w rejestrze systemu Windows dla aplikacji określonej jako nazwa_aplikacji,a następnie użyto funkcji GetAllSettings w celu wyświetlenia ustawień. Zwróć uwagę, że za pomocą właściwości GetAllSettingsnie można pobrać nazw aplikacji i nazw sekcji. 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"

Potrzebna dalsza pomoc?

Rozwijaj umiejętności związane z pakietem Office
Poznaj szkolenia
Uzyskuj nowe funkcje w pierwszej kolejności
Dołącz do niejawnych testerów pakietu Office