Kamrad.ru
 
 
дневники | кабинет | регистрация | календарь | участники | faq | правила | поиск | фотоальбом | каська | выйти
Kamrad.ru Kamrad.ru » Форумы общей тематики » Программы (software) » Про БЭЙСИК
новая тема  ответить следующая тема | предыдущая тема
Автор
 
Aleksei - offline Aleksei
Question20-12-2001 14:39 URL сообщения      K-Mail    Профиль    Поиск    Контакт-лист   Редактировать
Banned



Про БЭЙСИК

Как сохранить положение CHECKBOX'а в файл формата *.DOM (к примеру)?
Можете скинуть на мыло.

[EMAIL=kovboi2001@mail.ru]Kovboi2001@mail.ru[/EMAIL]

Mx - offline Mx
21-12-2001 00:54 URL сообщения Дневник     K-Mail    Профиль    Поиск    Контакт-лист   Редактировать
Mad fancier



А тут вроде и ничего сложного нет. Просто записываешь в файл единичку или нолик. Если единичка, то отмечен, если нолик, то нет. Потом в нужном месте его считываешь. Формат тут вообще роли не играет. Если ты незнаешь как записывать, считывать, это уже другое дело. Спрашивай.

Aleksei - offline Aleksei
Smile21-12-2001 06:53 URL сообщения      K-Mail    Профиль    Поиск    Контакт-лист   Редактировать
Banned



Вот я и незнаю как это сделть. Напиши если не трудно или скинь на мыло.

Mx - offline Mx
21-12-2001 22:53 URL сообщения Дневник     K-Mail    Профиль    Поиск    Контакт-лист   Редактировать
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

Вот и всё. Попробуй с этим разобраться, почитай литературу, ну и т.д.

Mx - offline Mx
21-12-2001 22:54 URL сообщения Дневник     K-Mail    Профиль    Поиск    Контакт-лист   Редактировать
Mad fancier



Есть вопросы - спрашивай.

Текущее время: 22:18
новая тема  ответить следующая тема | предыдущая тема
 
Перейти:

версия для печати   отправить эту страницу по e-mail   подписаться на эту тему

 
Powered by: vBulletin Version 2.0.1
Copyright ©2000, 2001, Jelsoft Enterprises Limited.
Любое использование материалов сайта
возможно только с разрешения его администрации.


 

Рейтинг@Mail.ru
Рейтинг@Mail.ru