MsgBox Statement

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

Синтаксис:


   MsgBox prompt As String [,buttons = MB_OK [,title As String]]
   response = MsgBox( prompt As String [,buttons = MB_OK [,title As String]])

Параметри:

prompt: String expression displayed as a message in the dialog box. Line breaks can be inserted with Chr$(13).

title: String expression displayed in the title bar of the dialog. If omitted, the title bar displays the name of the respective application.

buttons: Any integer expression that specifies the dialog type, as well as the number and type of buttons to display, and the icon type. buttons represents a combination of bit patterns, that is, a combination of elements can be defined by adding their respective values:

Іменована константа	Ціле значення	Опис
MB_OK	0	Показати тільки кнопку "Гаразд".
MB_OKCANCEL	1	Показати кнопки "Гаразд" і "Скасувати".
MB_ABORTRETRYIGNORE	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