Вы можете использовать функции GetSetting и GetAllSettings, чтобы получить значения системного реестра. Например, ваша прикладная программа может получает параметры настройки системного реестра, чтобы восстановить условия, которые были при завершении программы. Чтобы получить одиночную установку системного реестра, используйте следующий синтаксис для функции GetSetting:
GetSetting(appname, section, key[, default])
Пример:
Private Sub Form_Load() Dim intLastEntry As Integer intLastEntry = GetSetting("RegCust","Startup","LastEntry","0") Debug.Print intLastEntry End Sub
Чтобы получить список настроек системного реестра и их значений, используйте следующий синтаксис для функции GetAllSettings:
GetAllSettings(appname, section)
Пример:
Private Sub Form_Load() Dim avntSettings As Variant Dim intX As Integer avntSettings = GetAllSettings("RegCust","Startup") For intX = 0 To UBound(avntSettings,1) Debug.Print avntSettings(intX,0), avntSettings(intX,1) Next intX End Sub