Not_RealЧто с этими файлами надо делать? (мне прям неловко)1. Попытаться прочитать листинг и выяснить, есть ли что-то (не)понятное.
2. С минимальными правками можно использовать модуль класса:
я взял его из приведенного в нём же источника.
3. Желательно раздобыть эту старую, но не устаревшую книгу - она Вам очень поможет.
4. Не рассчитывать на то, что в задуманном Вами проекте получится "всё и сразу" - увы, это банальная, но истина.
5. Модуль .bas - это пример из
моего проекта,
Вам надо его отредактировать.Посмотрел я хелпик на эту функцию... и понял, не силен...А что тут понимать: реестр пришел на смену .ini-файлам.
Моя программа при завершении работы сохраняет в реестре размеры формы, установленные юзером, а затем их восстанавливает:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Public Sub SaveSizes() 'Сохранение последних размеров формы в реестре:
With fMain
SaveSetting App.Title, "Settings", "MainLeft", .Left
SaveSetting App.Title, "Settings", "MainTop", .Top
SaveSetting App.Title, "Settings", "MainWidth", .Width
SaveSetting App.Title, "Settings", "MainHeight", .Height
SaveSetting App.Title, "Settings", "Splitter", .imgSplitter.Left
End With
End Sub
Public Sub GetSizes() 'Установка последних размеров формы, запомненных в реестре:
With fMain
.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000 )
.Top = GetSetting(App.Title, "Settings", "MainTop", 1000 )
.Width = GetSetting(App.Title, "Settings", "MainWidth", 6500 )
.Height = GetSetting(App.Title, "Settings", "MainHeight", 6500 )
.imgSplitter.Left = GetSetting(App.Title, "Settings", "Splitter", 2000 )
If .WindowState = vbMinimized Then .WindowState = vbNormal
End With
End Sub
А если Вам необходимо читать ключи из произвольных ветвей реестра, используйте функции Windows API (всех функций работы с рееестром - порядка 20).
