Исходники.Ру - Программирование
Исходники
Статьи
Книги и учебники
Скрипты
Новости RSS
Магазин программиста

Ishodniki.Ru » Online книги » Visual Basic по шагам

Шаг 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

 

Предыдущий шаг | Оглавление | Следующий шаг

Рассылка новостей
Рейтинги
© 2007, Программирование Исходники.Ру