Функция GetAllSettings

Примечание : Функция, метод, объект или свойство, описанные в данном разделе, отключаются, если служба обработки выражений Microsoft Jet выполняется в режиме песочницы, который не позволяет рассчитывать потенциально небезопасные выражения. Для получения дополнительных сведений выполните в справке поиск по словам "режим песочницы".

Данная функция возвращает список параметров и их значений (изначально созданных с помощью SaveSetting) из записи приложения в реестре Windows или из сведений в файле инициализации приложения (на компьютерах Macintosh).

Синтаксис

GetAllSettings ( имя_приложения , раздел )

Функция GetAllSettings имеет следующие аргументы:

Аргумент

Описание

имя_приложения

Обязательный аргумент. Строковое выражение, содержащее имя приложения или проекта, параметры ключа которых запрашиваются. На компьютерах Macintosh это имя файла инициализации в папке "Настройки" папки "Система".

раздел

Обязательный аргумент. Строковое выражение, содержащее имя раздела, параметры ключа которого запрашиваются. Функция GetAllSettings возвращает значение типа Variant, содержимое которого является двумерным массивом строк, содержащих все параметры ключа указанного раздела и соответствующие им значения.


Примечания

Функция GetAllSettings возвращает неинициализированное значение типа Variant, если отсутствует аргумент имя_приложения или раздел.

Пример

Примечание : В примерах ниже показано, как использовать эту функцию в модуле Visual Basic для приложений (VBA). Чтобы получить дополнительные сведения о работе с VBA, выберите Справочник разработчика в раскрывающемся списке рядом с полем Поиск и введите одно или несколько слов в поле поиска.

В данном примере сначала с помощью инструкции SaveSetting создаются записи в реестре Windows для приложения, указанного в аргументе имя_приложения, а затем используется функция 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

Были ли сведения полезными?

Спасибо за ваш отзыв!

Благодарим за отзыв! Возможно, будет полезно связать вас с одним из наших специалистов службы поддержки Office.

×