Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Visual Basic.doc
Скачиваний:
13
Добавлен:
21.02.2016
Размер:
15.63 Mб
Скачать

5.2 Вікна повідомлень

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

  • оператор MsgBox;

  • функцію MsgBox().

Оператор MsgBox викликає стандартну підпрограму, яка виводить вікно повідомлення. Загальна форма оператору:

MsgBox Message, CodKey + CodIcon, Title

Параметри процедури MsgBox:

Message – повідомлення у вікні діалогу, рядок символів;

CodKey – код кнопок у вікні;

CodIcon – код значка, який відображається у вікні;

Title – вміст заголовку вікна повідомлення, рядок символів.

Коди кнопок і значків дають змогу визначити які кнопки повинні бути присутніми у вікні повідомлення і який знак виводити.

У таблицях наведена інформація про деякі можливі сполучення кнопок, значки вікон повідомлень.

Коди сполучень кнопок у вікні повідомлення

Ім’я константи

Значення

Сполучення кнопок

vbOKOnly

0

Ok

vbOKCancel

1

Ok i Cancel (Отмена)

vbAbortRetryIgnore

2

Abort (Стоп), Retry (Повтор), Ignore (Пропустить)

vbYesNoCancel

3

Yes (Да), No (Нет), Cancel (Отмена)

vbYesNo

4

Yes (Да), No (Нет)

vbRetryCancel

5

Retry (Повтор), Cancel (Отмена)

Коди значків у вікні повідомлення

Ім’я константи

Значення

Значок

Вигляд

vbCritical

16

Критичне повідомлення

vbQuestion

32

Запит

vbExclamation

48

Попередження

vbInformation

64

Інформація

У операторі можна використовувати як імена стандартних констант, так і їх значення.

Наприклад, якщо виконати оператор

MsgBox "Ви впевнені?", vbOKOnly + vbExclamation, "Увага!"

на екрані з’явиться таке вікно

Результат не зміниться, якщо в програмному коді ввести:

MsgBox "Ви впевнені?", 0 + 48, "Увага!"

Оскільки оператор MsgBox виконує певну процедуру, то використання інших кнопок крім vbOKOnly фактично не має сенсу. Всі кнопки можуть бути виведені у вікні повідомлення, але змінити дію програми в залежності від обраної кнопки важко, оскільки процедура не повертає значення, яке можна аналізувати.

Функція MsgBox() усуває цей недолік. Параметри функції MsgBox() такі ж, як і параметри оператору MsgBox. Функція MsgBox() повертає деяке значення, яке можна привласнити змінній, проаналізувати і в залежності від обраної кнопки виконати різні дії.

Можливі значення, що повертає функція MsgBox()

Ім’я константи

Значення

Обрано кнопку

vbOK

1

кнопка Ok

vbCancel

2

кнопка Cancel (Отмена)

vbAbort

3

кнопка Abort (Стоп)

vbRetry

4

кнопка Retry (Повтор)

vbIgnore

5

кнопка Ignore (Пропустить)

vbYes

6

кнопка Yes (Да)

vbNo

7

кнопка No (Нет)

Приклад використання функції MsgBox():

Private Sub cmdDelete_Click()

Vid=MsgBox("Знищити дані таблиці?",vbOKCancel+vbQuestion,"Увага - знищення")

If Vid = vbOK Then

For i = 0 To 5

txtName(i).Text = " "

txtSum(i).Text = " "

Next

End If

End Sub

Процедуру буде виконано, якщо клацнути кнопкою миші по кнопці cmdDelete. Функція MsgBox() виведе на екран таке вікно повідомлення:

Після натиснення кнопки ОК або Отмена, значення, що повертає функція, буде привласнено змінній Vid. Якщо Vid дорівнює vbOK (можна порівнювати з 1), то виконується знищення вмісту елементів масиву текстових полів txtName і txtSum.