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

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

MsgBox Message, CodKey + CodIcon, Title

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

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

Ö оператор MsgBox;

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

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

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

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

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

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

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

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

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

Ім’я константи	Значення	Сполучення кнопок
vbOKOnly		Ok
vbOKCancel		Ok i Cancel (Отмена)
vbAbortRetryIgnore		Abort (Стоп), Retry (Повтор), Ignore (Пропустить)
vbYesNoCancel		Yes (Да), No (Нет), Cancel (Отмена)
vbYesNo		Yes (Да), No (Нет)
vbRetryCancel		Retry (Повтор), Cancel (Отмена)

Ім’я константи	Значення	Значок	Вигляд
vbCritical		Критичне повідомлення
vbQuestion		Запит
vbExclamation		Попередження
vbInformation		Інформація

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

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

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

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

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

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

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

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

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

Ім’я константи	Значення	Обрано кнопку
vbOK		кнопка Ok
vbCancel		кнопка Cancel (Отмена)
vbAbort		кнопка Abort (Стоп)
vbRetry		кнопка Retry (Повтор)
vbIgnore		кнопка Ignore (Пропустить)
vbYes		кнопка Yes (Да)
vbNo		кнопка 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

Дата добавления: 2015-05-24