Шаг 123 - Получение настроек приложения

Вы можете использовать функции 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

Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем.