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 wartość ustawienia klucza z wpisu aplikacji w rejestrze systemu Windows lub (na komputerze Macintosh) z pliku inicjowania aplikacji.
Składnia
GetSetting ( nazwa aplikacji , sekcja, klawisz [, domyślne ] )
W składni funkcji GetSetting występują następujące argumenty:
|
Argument |
Opis |
|
Appname |
Argument wymagany. wyrażenie tekstowe zawierający nazwę aplikacji lub projektu, którego wymagane jest ustawienie klucza. Na komputerze Macintosh jest to nazwa pliku inicjowania w folderze Preferencje w folderze System. |
|
sekcja |
Argument wymagany. Wyrażenie ciągu zawierające nazwę sekcji, w której znajduje się ustawienie klucza. |
|
dostępu |
Argument wymagany. Wyrażenie ciągu zawierające nazwę ustawienia klucza do zwrócenia. |
|
wartość domyślna |
Argument opcjonalny. Wyrażenie zawierające wartość do zwrócenia, jeśli w ustawieniu klucza nie ustawiono żadnej wartości. W przypadku pominięcia przyjmuje się, że ciąg odroczenia jest ciągiem o zerowej długości (""). |
Spostrzeżenia
Jeśli którykolwiek z elementów wymienionych w argumentach GetSetting nie istnieje, funkcja GetSetting zwraca wartość domyślną.
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 (lub .ini pliku na 16-bitowych platformach Systemu Windows) dla aplikacji określonej jako nazwa aplikacji, a następnie wyświetla jedno z ustawień za pomocą funkcji GetSetting . Ponieważ jest określony argument domyślny , pewna wartość jest gwarantowana. Zwróć uwagę, że nazw sekcji nie można pobrać za pomocą usługi GetSetting. Na koniec instrukcja DeleteSetting usuwa wszystkie wpisy aplikacji.
' Variant to hold 2-dimensional array returned
' by GetSetting.
Dim MySettings As Variant
' Place some settings in the registry.
SaveSetting "MyApp","Startup", "Top", 75
SaveSetting "MyApp","Startup", "Left", 50
Debug.Print GetSetting(appname := "MyApp", _
section := "Startup", _
key := "Left", default := "25")
DeleteSetting "MyApp", "Startup"
