Оператор MsgBox

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

Синтаксис:


MsgBox Text As String [,Type As Integer [,Dialogtitle As String]] (As Statement) или MsgBox (Text As String [,Type As Integer [,Dialogtitle As String]]) (As Function)

Параметър:

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

Третият бутон в диалоговия прозорец е подразбиран.


Кодове за грешка:

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

Моля, подкрепете ни!