MsgBox Function

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

Синтаксис:


MsgBox (Prompt As String [,Buttons = MB_OK [,Title As String]]) As Integer

Параметри:

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

Показва се само бутон „OK“.

MB_OKCANCEL

1

Показват се бутони „OK“ и „Отказ“.

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

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


Резултат:

Integer

Наименувана константа

Целочислена стойност

Дефиниция

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_ABORTRETRYIGNORE, "Заглавие на диалога")
End Sub