Функция GetAllSettings
Возвращает список параметров ключей и их соответствующих значений (изначально созданных с помощью SaveSetting) из записи приложения в реестре Windows или (в Macintosh) в файле инициализации приложения.
Синтаксис
GetAllSettings(appname, section)
Синтаксис функции GetAllSettings состоит из следующих именованных аргументов:
| Part | Описание |
|---|---|
| имя_приложения | Обязательно. Строковое выражение, содержащее имя приложения или проекта, параметры которого запрашиваются. В Macintosh это имя файла инициализации из папки Preferences в системной папке. |
| section | Обязательно. Строковое выражение , содержащее имя раздела, для которого запрашиваются параметры ключа. Функция GetAllSettings возвращает переменную типа Variant, которая содержит двумерный массив строк, содержащих все параметры и их значения в указанном разделе. |
Замечания
Функция GetAllSettings возвращает неинициализированную переменную типа Variant, если приложение или раздел, указанные аргументами appname и section, не существует.
Пример
В этом примере сначала используется инструкция SaveSetting для внесения записей в реестр Windows для приложения, указанного в качестве appname, а затем используется функция GetAllSettings для отображения параметров. Обратите внимание, что имена приложений и разделов невозможно получить с помощью функции GetAllSettings. Наконец, инструкция DeleteSetting удаляет записи приложения.
' Variant to hold 2-dimensional array returned by GetAllSettings
' Integer to hold counter.
Dim MySettings As Variant, intSettings As Integer
' Place some settings in the registry.
SaveSetting appname := "MyApp", section := "Startup", _
key := "Top", setting := 75
SaveSetting "MyApp","Startup", "Left", 50
' Retrieve the settings.
MySettings = GetAllSettings(appname := "MyApp", section := "Startup")
For intSettings = LBound(MySettings, 1) To UBound(MySettings, 1)
Debug.Print MySettings(intSettings, 0), MySettings(intSettings, 1)
Next intSettings
DeleteSetting "MyApp", "Startup"
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.