Функція 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

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