Шаг 125 - Создаем программу работающую с реестром дальше

Пора применить наш класс. Считывать данные лучше при загрузке формы, а записывать при выгрузке. Мы с Вами будет запоминать расположение формы на экране при выходе и восстанавливать при запуске снова. Объявляем экземпляр класса. При запуске формы пытаемся считать позицию, при выходе записать.

Private AppReestr As Reestr

Private Sub Form_Load()
	Set AppReestr = New Reestr
	AppReestr.AppName = "Test"
	AppReestr.Section = "Form"
	AppReestr.Key = "PositionTop"
	AppReestr.RestoreSettings
	Form1.Top = Val(AppReestr.Setting)
	AppReestr.Key = "PositionLeft"
	AppReestr.RestoreSettings
	Form1.Left = Val(AppReestr.Setting)
End Sub

Private Sub Form_Unload(Cancel As Integer)
	AppReestr.Key = "PositionTop"
	AppReestr.Setting = Str(Form1.Top)
	AppReestr.SaveSettings
	AppReestr.Key = "PositionLeft"
	AppReestr.Setting = Str(Form1.Left)
	AppReestr.SaveSettings
End Sub

Попробуйте запустить программу, переместить форму, выйти запустить опять все у Вас должно работать. Потом можно заглянуть в реестр и посмотреть настройки.

gif/125_1.gif (4774 b)


Загрузить проект | Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем - 15.04.2002