Забележка: Функцията, методът, обектът или свойството, описани в тази тема, се забраняват, ако услугата microsoft Jet Expression се изпълнява в ограничителен режим, което предотвратява оценяването на потенциално опасни изрази. За повече информация относно ограничителния режим потърсете "ограничителен режим" в помощта.
Връща стойност на настройка на ключ от записа на приложението в системния регистър на Windows или (на Macintosh) информация в файла за инициализация на приложението.
Синтаксис
GetSetting ( име на приложение , секция, ключ [, по подразбиране ] )
Синтаксисът на функцията GetSetting има следните аргументи:
Аргумент |
Описание |
име на приложение |
Задължително. низов израз, съдържащ името на приложението или проекта, чиято основна настройка е заявена. На Macintosh това е името на файла за инициализация в папката Preferences (Предпочитания) в системната папка. |
секция; раздел |
Задължително. Израз във формата на низ, съдържащ името на секцията, в която е намерена настройката на ключа. |
клавиш |
Задължително. Израз във формата на низ, съдържащ името на върнатата настройка на ключа. |
по подразбиране |
Незадължително. Израз, съдържащ стойността, която да се върне, ако не е зададена стойност в настройката на ключа. Ако липсва, се приема, че default е низ с нулева дължина (""). |
Забележки
Ако някой от елементите, наименувани в аргументите getSetting , не съществува, GetSetting връща стойността по подразбиране.
Пример
Забележка: Примерите по-долу илюстрират използването на тази функция във Visual Basic for Applications (VBA). За повече информация относно работата с VBA изберете Справочни материали за разработчици в падащия списък до Търсене и въведете един или няколко термина в полето за търсене.
Този пример първо използва командата SaveSetting , за да направи записи в системния регистър на Windows (или .ini файл на 16-битови платформи на Windows) за приложението, зададено като име на приложение, и след това използва функцията GetSetting , за да покаже една от настройките. Тъй като е зададен аргументът по подразбиране , част от стойността е гарантирана за връщане. Обърнете внимание, че имената на секциите не могат да бъдат извлечени с GetSetting. И накрая, командата DeleteSetting премахва всички записи на приложението.
' 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"