Ескертпе
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Жүйеге кіруді немесе каталогтарды өзгертуді байқап көруге болады.
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Каталогтарды өзгертуді байқап көруге болады.
Возвращает значение параметра ключа из записи приложения в реестре Windows или (в Macintosh) в файле инициализации приложения.
Синтаксис
GetSetting(appname, section, key, [ default ])
Синтаксис функции GetSetting использует следующие именованные аргументы:
| Part | Описание |
|---|---|
| имя_приложения | Обязательно. Строковое выражение, содержащее имя приложения или проекта, для которого запрошен параметр раздела. На Macintosh это имя файла инициализации из папки "Preferences" в системной папке. |
| section | Обязательно. Строковое выражение, содержащее имя раздела, в котором находится параметр ключа. |
| key | Обязательно. Строковое выражение, содержащее имя возвращаемого параметра ключа. |
| default | Необязательный параметр. Выражение, содержащее значение, которое возвращается в случае отсутствия заданного значения для параметра раздела. Если данный элемент опущен, default предполагает, что это строка нулевой длины (""). |
Замечания
Если какой-либо из элементов, именованных в аргументах GetSetting , не существует, Метод GetSetting возвращает значение по умолчанию.
Пример
В этом примере сначала используется инструкция SaveSetting для внесения записей в реестр Windows (или .ini файл на 16-разрядных платформах Windows) для приложения, указанного в качестве appname, а затем используется функция GetSetting для отображения одного из параметров. Поскольку аргумент default указан, гарантированно возвращается некоторое значение. Обратите внимание на то, что имена section нельзя извлечь с помощью 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"
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.