Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Справочники

МЕНЮ САЙТА
  • 1
  • 2
  • 3

КАТЕГОРИИ РАЗДЕЛА

ОПРОСЫ
Какой версией Excel Вы пользуетесь?
Всего ответов: 35739
Главная » Справочники » Функции VBA » Функции обработки системных параметров

GetAllSettings

GetAllSettings

Функция GetAllSettings

GetAllSettings(Appname,Section)

Возвращаемое значение

Возвращает список записей и их значений (созданных с помощью инструкции SaveSetting) из раздела HKEY_CURRENT_USER\Software\VB and VBA Program Settings, соответствующего приложению,в реестре Windows. Функция GetAllSettings возвращает неинициализированное значение типа Variant, если хотя бы в одном из аргументов Appname или Section указано несуществующее значение. Поскольку функция возвращает значения в текстовом виде(субтип String), то значения записей, содержащих числа, перед применением следует явно преобразовать в числовой тип

Параметры
Функция содержит именованные аргументы
Appname
Обязательный аргумент - строковое выражение, содержащее имя приложения или проекта, для которого определяются записи
Section
Обязательный аргумент - строковое выражение, содержащее имя раздела, для которого определяются записи. Функция GetAllSettings возвращает значение типа Variant, содержащее двумерный массив строк со всеми записями указанного раздела и их значениями
Пример
' В данном примере сначала с помощью
' оператора SaveSetting заполняются элементы реестра
' Windows для приложения, указанного в параметре
' Appname, а затем значения записей выводятся
' с помощью функции GetAllSettings.
' Отметим, что функция GetAllSettings не возвращает
' имена приложений и имена разделов, указанных в
' параметре Section
' Описываем переменную типа Variant, в которую будет записан двумерный 
' массив,возвращаемый функцией GetAllSettings
' Описываем счетчик с типом Integer
Dim MySettings As Variant, intSettings As Integer
' Заполняем реестр
SaveSetting appname := "MyApp", section := "Startup", _
key := "Top", setting := 75
SaveSetting "MyApp","Startup", "Left", 50
' Удаление установок
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"
Смотри также
GetSetting
Категория
Функции обработки системных параметров

Счетчики: 1446 | Добавил: Serge_007
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!