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

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

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

 

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

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