Інструкція MsgBox

Відображає діалогове вікно, що містить повідомлення.

Синтаксис:


MsgBox Текст As String [,Тип As Integer [,Заголовок As String]] (As Statement) або Повідомлення (Текст As String [,Тип As Integer [,Заголовок As String]]) (As Function)

Параметр:

Текст: Рядковий вираз, що відображається як повідомлення у діалоговому вікні. Переноси рядків можна вставити за допомогою Chr$(13).

Заголовок: Рядковий вираз, який відображається в заголовку діалогового вікна. Якщо параметр пропущено, то у рядку заголовка відображається ім'я відповідної програми.

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

Іменована константа

Ціле значення

Опис

MB_OK

0

Показати тільки кнопку "Гаразд".

MB_OKCANCEL

1

Показати кнопки "Гаразд" і "Скасувати".

MB_ABORTRETRYCANCEL

2

Показати кнопки "Перервати", "Повторити" і "Пропустити".

MB_YESNOCANCEL

3

Показати кнопки "Так", "Ні" та "Скасувати".

MB_YESNO

4

Показати кнопки "Так" і "Ні".

MB_RETRYCANCEL

5

Показати кнопки "Повторити" і "Скасувати".

MB_ICONSTOP

16

Додати в діалогове вікно піктограму "Стоп".

MB_ICONQUESTION

32

Додати в діалогове вікно піктограму "Питання".

MB_ICONEXCLAMATION

48

Додати в діалогове вікно піктограму "Знак оклику".

MB_ICONINFORMATION

64

Додати в діалогове вікно піктограму "Інформація".

128

Перша кнопка в діалоговому вікні як типова кнопка.

MB_DEFBUTTON2

256

Друга кнопка в діалоговому вікні як типова кнопка.

MB_DEFBUTTON3

512

Третя кнопка в діалоговому вікні як типова кнопка.


Коди помилок:

5 Неправильний виклик процедури

Приклад:


Sub ExampleMsgBox
 Const sText1 = "Трапилася несподівана помилка."
 Const sText2 = "Однак виконання програми буде продовжено."
 Const sText3 = "Помилка"
 MsgBox(sText1 + Chr(13) + sText2,16,sText3)
 MsgBox(sText1 + Chr(13) + sText2, MB_ICONSTOP, sText3)
End Sub

Будь ласка, підтримайте нас!