Модуль
Зміст
Покажчик 🔎︎

# Функція MsgBox

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

## Синтаксис:

    MsgBox (Текст As String [,Тип As Integer [,Заголовок As String]])

## Значення, що повертається:

Ціле число

## Параметр:

Текст: Рядковий вираз, що відображається як повідомлення у діалоговому вікні. Переноси рядків можна вставити за допомогою 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 | Третя кнопка в діалоговому вікні як типова кнопка.

Обчислене значення:

Іменована константа | Ціле значення | Опис
IDOK | 1 | Гаразд
IDCANCEL | 2 | Скасувати
IDABORT | 3 | Перервати
IDRETRY | 4 | Повторити
IDIGNORE | 5 | Пропустити
IDYES | 6 | Так
IDNO | 7 | Ні

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

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

## Приклад:

    Sub ExampleMsgBox

    Dim sVar As Integer

     sVar = MsgBox("Галич")

     sVar = MsgBox("Галич",1)

     sVar = MsgBox( "Галич",256 + 16 + 2,"Назва діалогового вікна")

     sVar = MsgBox("Жмеринка", MB_DEFBUTTON2 + MB_ICONSTOP + MB_ABORTRETRYCANCEL, "Заголовок діалогу")

    End Sub