Функция GetAllSettings

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

Возвращает список записей и их значений (созданных с помощью инструкции 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"