Mad fancier
|
Окей.
Dim FileNo As Integer 'уникальный номер файла
'(нужен для доступа к нему из бейсика)
'Открываешь файл для записи в него (то есть режим output)
'Здесь файл открывается, затем в него записывается 0 или 1 в зависимости от значения CheckBox1.
Open App.Path + "test.dom" For Output As FileNo
If CheckBox1.Value = True Then Print #FileNo, "1"
If CheckBox1.Value = False Then Print #FileNo, "0"
Close FileNo 'закрываем файл
Теперь нам надо например наоборот изменить CheckBox1 в зависимости от значения в файле:
Dim FileValue As string 'чтобы хранить то что возьмём из файла
FileNo = FreeFile
Open App.Path + "test.dom" For Input As FileNo
Input #FileNo, FileValue
If FileValue = "0" Then
CheckBox1.Value = False
Else
CheckBox1.Value = True
End If
Close FileNo
Вот и всё. Попробуй с этим разобраться, почитай литературу, ну и т.д.
|