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