Примечание: Функция, метод, объект или свойство, описанные в данном разделе, отключаются, если служба обработки выражений 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"