Конференция VBStreets

**Shadowkiller** » 17.09.2005 (Сб) 17:01

На форме находится 2 checkbox, 2 optionbutton. Как записать их свойство value в 1 файл, а потом считовать из него :?:

**vvs_adm** » 17.09.2005 (Сб) 18:19

Лучше записать в реестр, а потом считывать. Например:

Код: Выделить всё: 'Записать: SetSetting app.EXEName, ControlValue, ControlName, Control.Value 'Считать: Control.Value=GetSetting( app.EXEName,ControlValue,ControlName,DefaultValue)

**Amed** » 17.09.2005 (Сб) 18:31

Код: Выделить всё: Dim FF As Long Dim Res As Byte FF = FreeFile Open "C:\tmp.txt" For Binary As #FF Res=CheckBox.Value Put #FF, , Res Close #FF '... FF = FreeFile Open "C:\tmp.txt" For Binary As #FF Get #FF, , Res CheckBox.Value=Res Close #FF

Примерно так.
Не проверял.

В реестр лучше не писать.

BV » 17.09.2005 (Сб) 20:20

GetPrivateProfileString, WritePrivateProfileString и API-Guide.

**vvs_adm** » 17.09.2005 (Сб) 20:58

Amed писал(а):В реестр лучше не писать.

А почему? Работа с реестром удобнее, чем с файлом. А если переносить программу на другой комп, то можно вместе с веткой реестра перенести.

**Amed** » 17.09.2005 (Сб) 21:11

Замусоривать реестр - дело неблагодарное. Вряд ли разработчик вспомнит о том, что писал ключи реестра и удалит их.

**vvs_adm** » 17.09.2005 (Сб) 21:21

А замусоривать винчестер гораздо благороднее? Тогда надо скидывать на дискету, а при запуске требовать дискету в студию...

**Amed** » 17.09.2005 (Сб) 22:11

На винчестере файл видно невоорженным взглядом.

Впрочем, не спорю, не спорю

Запись в файл