Функция MsgBox
Показва диалогов прозорец със съобщение и връща стойност.
MsgBox (Prompt As String [,Buttons = MB_OK [,Title As String]]) As Integer
prompt: израз – низ, показван като като съобщение в диалоговия прозорец. За преминаване на нов ред може да се използва Chr$(13).
title: израз от тип низ, показван в заглавната лента на диалоговия прозорец. Ако бъде пропуснат, в заглавната лента се изписва името на съответното приложение.
buttons: произволен израз от тип цяло число, който задава типа на диалоговия прозорец, броя и вида на показваните бутони и вида на иконата. buttons представлява комбинация от битови маски, т.е. от елементи, които могат да бъдат включени чрез прибавяне на съответните им стойности:
|
Наименувана константа
|
Целочислена стойност
|
Дефиниция
|
|
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