Запис інформації у файл

Робота з елементом CommonDialog

Робота з функцією MsgBox

Робота з діалоговими вікнами, збереження даних

Функція MsgBox виводить у вікні форми введені дані або текстове повідомлення. Загальний вигляд функції MsgBox такий:

MsgBox (Message, Button, Title),

де Message – повідомлення на екрані, Button – одна з констант Visual Basic, що визначає набір кнопок та значок у вікні повідомлення MsgBox (наприклад, константа vbOKOnly – наявність у вікні повідомлення кнопки Ok), Title – назва вікна повідомлення.

15. Створимо процедуру яка дозволяє виводити діалогове вікно з привітанням при завантаженні додатку:

Private Sub Form_Load()

Dim m

m = MsgBox("Вас вітає програма табулювання та побудови графіку _
функції y=sin(x)", vbOKOnly)

End Sub

16. Збережіть проект і перевірте як він працює.

Для того, щоб скористуватись елементом CommonDialog необхідно спочатку додати його на панель ToolBox. Здійснити це можна наступним чином:

- підвести курсор миші до панелі ToolBox;

- натиснути праву клавішу миші, з контекстного меню вибрати Components…;

- в діалоговому вікні Components, що з’явиться, вибрати компонент
Microsoft Common Dialog Control 6.0;

- натиснути кнопку Ok.

Після цих дій на панелі ToolBox з’явиться піктограма елементу CommonDialog.

17. На панелі інструментів ToolBox виберіть елемент CommonDialog, а потім розташовуємо його на формі. За умовчанням він буде мати ім’я CommonDialog1. Для елементу CommonDialog1 у вікні властивостей Properties змініть наступні властивості:

(Name)	DialogSaveData
DialogTitle	Збереження даних у файл
Left
Top

У випадку поточної практичної роботи діалогове вікно необхідно використати для здобуття імені файлу для збереження даних. Коли користувач в діалоговому вікні вибере папку, а потім в рядку Имя файла вкаже ім’я файлу, властивість .FileName об’єкту DialogSaveData набуде повного імені цього файлу.

Для того, щоб зберегти дані у вибраний файл необхідно здійснити відкриття цього файлу з метою запису в нього даних. Це можна зробити за допомогою наступного рядка:

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-23