Public Type OPTIONS_GLOBAL
...параметры которые надо сохранить
End Type
Public udtGlobalSettings As OPTIONS_GLOBAL
Open App.Path & "/Settings.bin" For Binary As #1
Put #1, , udtGlobalSettings
Close #1
Open App.Path & "/Settings.bin" For Binary As #1
Get #1, , udtGlobalSettings
Close #1
Йода писал(а):ИМХО, самый лучший вариант - создать один user-defined type(структуру) в котором будут находиться все настройки, и сохранять его в файл. Когда надо-загружать. Весь код(без учёта декларации структуры) занимает 6 строк:
Необходимые декларации:
- Код: Выделить всё
Public Type OPTIONS_GLOBAL
...параметры которые надо сохранить
End Type
Public udtGlobalSettings As OPTIONS_GLOBAL
Сохранить настройки:
- Код: Выделить всё
Open App.Path & "/Settings.bin" For Binary As #1
Put #1, , udtGlobalSettings
Close #1
Загрузить настройки:
- Код: Выделить всё
Open App.Path & "/Settings.bin" For Binary As #1
Get #1, , udtGlobalSettings
Close #1
Stalker1986 писал(а):я ж говорю - чайник ещё
Stalker1986 писал(а):или хотя бы расписать с комментами
Сейчас этот форум просматривают: Google-бот и гости: 41