Функция MsgBox

Показва диалогов прозорец със съобщение и връща стойност.

Синтаксис:


MsgBox (Text As String [,Type As Integer [,Dialogtitle As String]])

Връщана стойност:

Integer

Параметър:

Text: израз – низ, показван като като съобщение в диалоговия прозорец. За преминаване на нов ред може да се използва Chr$(13).

DialogTitle: израз от тип низ, показван в заглавната лента на диалоговия прозорец. Ако бъде пропуснат, се изписва името на съответното приложение.

Type: произволен израз от тип цяло число, който задава типа на диалоговия прозорец, броя и вида на показваните бутони или икони. Type представлява комбинация от битови маски (елементи, задавани чрез прибавяне на съответните стойности):

Стойности

Наименувана константа	Целочислена стойност	Дефиниция
MB_OK	0	Показва се само бутон „OK“.
MB_OKCANCEL	1	Показват се бутони „OK“ и „Отказ“.
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	OK
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