Примечание
Функция, метод, объект или свойство, описанные в данном разделе, отключаются, если служба обработки выражений Microsoft Jet выполняется в режиме песочницы, который не позволяет рассчитывать потенциально небезопасные выражения. Для получения дополнительных сведений выполните в справке поиск по словам "режим песочницы".
Данная функция возвращает список параметров и их значений (изначально созданных с помощью SaveSetting) из записи приложения в реестре Windows или из сведений в файле инициализации приложения (на компьютерах Macintosh).
Синтаксис
GetAllSettings(имя приложения; раздел)
Функция GetAllSettings имеет следующие аргументы:
| Аргумент | Описание |
|---|---|
| имя_приложения | — обязательный аргумент. Строковое выражение, содержащее имя приложения или проекта, параметры клавиш которого запрашиваются. На компьютерах Macintosh это имя файла инициализации в папке "Настройки" папки "Система". |
| раздел | — обязательный аргумент. Строковое выражение , содержащее имя раздела, параметры клавиш которого запрашиваются. GetAllSettings возвращает Variant, содержимое которого представляет собой двумерный массив строк, содержащих все ключевые настройки в указанном разделе и соответствующие им значения. |
Замечания
GetAllSettings возвращает неинициализированный Variant , если appname или section не существует.
Пример
Примечание
В примерах ниже показано, как использовать эту функцию в модуле Visual Basic для приложений (VBA). Чтобы получить дополнительные сведения о работе с VBA, выберите Справочник разработчика в раскрывающемся списке рядом с полем Поиск и введите одно или несколько слов в поле поиска.
В этом примере сначала используется инструкция 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"