Примечание: Функция, метод, объект или свойство, описанные в данном разделе, отключаются, если служба обработки выражений Microsoft Jet выполняется в режиме песочницы, который не позволяет рассчитывать потенциально небезопасные выражения. Для получения дополнительных сведений выполните в справке поиск по словам "режим песочницы".
Возвращает значение параметра раздела из записи приложения в реестре Windows либо файле инициализации приложения (для macOS).
Синтаксис
GetSetting ( имя_приложения , область, раздел [, по_умолчанию ] )
Функция GetSetting имеет следующие аргументы:
|
Аргумент |
Описание |
|
имя_приложения |
Обязательный аргумент. Строковое выражение, содержащее имя приложения или проекта, параметры раздела которых запрашиваются. В macOS это имя файла инициализации в папке "Настройки" папки "Система". |
|
раздел |
Обязательный аргумент. Строковое выражение, содержащее имя области, в которой находится параметр. |
|
раздел |
Обязательный аргумент. Строковое выражение, содержащее имя параметра раздела, который требуется вернуть. |
|
по_умолчанию |
Необязательный аргумент. Выражение, содержащее значение, возвращаемое, если не задано значение в параметре раздела. Если не указано, для аргумента по_умолчанию используется пустая строка (""). |
Замечания
Если любой из элементов с именем в аргументах GetSetting не существует, GetSetting возвращает значение по_умолчанию.
Пример
Примечание: В примерах ниже показано, как использовать эту функцию в модуле Visual Basic для приложений (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"
