Функція 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 |
Ні |
Приклад:
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