Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
Для того, щоб зберегти дані у вибраний файл необхідно здійснити відкриття цього файлу з метою запису в нього даних. Це можна зробити за допомогою наступного рядка:
Open <Ім’я файлу> For Призначення As Номер
Open – оператор для відкриття файлу;
For – ключове слово для визначення призначення;
As – ключове слово для визначення змінної, що містить файловий номер, за допомогою якого буде в подальшому здійснюватись обробка файлу.
18. Створимо підпрограму для збереження даних у файл результату з виводом діалогового вікна збереження “Збереження даних у файл”. При цьому збереження повинно відбуватися в разі, коли встановлено прапорець “Вивести результат у файл”:
Sub FunSave()
If CheckFile.Value = 0 Then Exit Sub
Dim SaveFile As String
With DialogSaveData
.Filter = "Файл результату (*.dat) |*.dat | Текстовий файл (*.txt) |*.txt"
.FileName = "Result1.dat"
.ShowSave
End With
SaveFile = DialogSaveData.FileName
If DialogSaveData.FileName = Empty Then Exit Sub
Open SaveFile For Output As #2
RezText = TextFun.Text
Print #2, RezText
Close #2
End Sub
За умовою, можливість збереження даних повинна з’являтися при завершені роботи, тобто при виконанні команди Вихід, або при закритті додатку.
19. Створимо процедуру обробки події при виборі команди Вихід:
Private Sub mnuEnd_Click()
Call FunSave
End
End Sub
20. Створимо процедуру обробки події вивантаження вікна додатку з пам’яті:
Private Sub Form_Unload(Cancel As Integer)
Call FunSave
End Sub
21. Збережіть проект і перевірте як він працює.
Дата публикования: 2014-12-28; Прочитано: 170 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!