Функция 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 |
Не |
Пример:
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