Примітка.: Функція, метод, об’єкт або властивість, описана в цьому розділі, недоступна, якщо Microsoft Jet Expression Service працює в режимі ізольованого програмного середовища, що запобігає обчисленню потенційно небезпечних виразів. Щоб отримати докладні відомості про режим ізольованого програмного середовища, у вікні довідки шукайте за запитом "режим ізольованого програмного середовища".
Повертає значення параметра ключа із запису програми в реєстрі Windows або (в Macintosh) у файлі ініціалізації програми.
Синтаксис
GetSetting ( appname , section, key [, default ] )
Синтаксис функції GetSetting має такі аргументи:
|
Аргумент |
Опис |
|
appname |
Обов’язковий аргумент. рядковий вираз, що містить ім'я програми або проекту, для якого запитано параметр ключа. У системі Macintosh це ім'я файлу ініціалізації в папці Параметри в папці Система. |
|
розділ |
— обов’язковий аргумент. Рядковий вираз, що містить ім'я розділу, де знайдено значення ключа. |
|
ключ |
— обов’язковий аргумент. Рядковий вираз, що містить ім'я параметра ключа, який потрібно повернути. |
|
default |
Необов’язковий аргумент. Вираз, який містить значення, яке повертається, якщо в параметрі ключа не встановлено жодного значення. Якщо його не вказано, припускається, що 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"
