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 wartość ustawienia klucza z wpisu aplikacji w rejestrze systemu Windows lub (na komputerze Macintosh) z informacji zawartych w pliku inicjującym aplikacji.
Składnia
GetSetting(appname, section, key [, default])
W składni funkcji GetSetting 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 ustawienia klucza są żądane. Na komputerze Macintosh jest to nazwa pliku inicjującego w folderze Preferencje w folderze System. |
| sekcja | Argument wymagany. Wyrażenie ciągu zawierające nazwę sekcji, w której znajduje się ustawienie klucza. |
| klucz | Argument wymagany. Wyrażenie ciągu zawierające nazwę ustawienia klucza do zwrócenia. |
| wartość domyślna | Argument opcjonalny. Wyrażenie zawierające wartość zwracaną, jeśli w ustawieniu klucza nie ustawiono żadnej wartości. W przypadku pominięcia tego argumentu przyjmuje się, że wartością domyślną jest ciąg o zerowej długości (""). |
Uwagi
Jeśli którykolwiek z elementów wymienionych w argumentach GetSetting nie istnieje, funkcja GetSetting zwraca wartość default.
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 (lub pliku .ini na platformach 16-bitowych systemu Windows) aplikacji określonej jako appname, a następnie użyto funkcji GetSetting w celu wyświetlenia jednego z ustawień. Ponieważ jest określony argument domyślny , pewna wartość na pewno zostanie zwrócona. Pamiętaj, że nazw sekcji nie można pobrać za pomocą funkcji 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"