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