IBM Lotus Symphony
|
Выдает окно с сообщением.
MsgBox Текст As String [,Тип As Integer [,Заголовок_окна As String]] (As Statement) или MsgBox (Текст As String [,Тип As Integer [,Заголовок_окна As String]]) (As Function)
Text : строковое выражение, отображаемое в виде сообщения в окне. С помощью Chr$(13) можно вводить разрывы строки.
DialogTitle : строковое выражение, отображаемое в строке заголовка окна. По умолчанию отображается имя соответствующего приложения.
Type : целочисленное выражение, задающее тип окна, а также число и тип отображаемых кнопок и тип значка. Тип представляет собой сочетание битовых флагов, то есть результат сложения значений соответствующих разрядов двоичного числа:
0 : показать только кнопку OK.
1 : показать кнопки OK и Отмена.
2 : показать кнопки Прервать, Повторить и Игнорировать.
3 : показать кнопки Да, Нет и Отмена.
4 : показать кнопки Да и Нет.
5 : показать кнопки Повторить и Отмена.
16 : добавить в окно значок Остановить.
32 : добавить в окно значок Вопросительный знак.
48 : добавить в окно значок Восклицательный знак.
64 : добавить в окно значок Информация.
128 : сделать кнопкой по умолчанию первую кнопку окна.
256 : сделать кнопкой по умолчанию вторую кнопку окна.
512 : сделать кнопкой по умолчанию третью кнопку окна.
Sub ExampleMsgBox
Const sText1 =Возникла непредвиденная ошибка."
Const sText2 = "Несмотря на это, выполнение программы будет продолжено."
Const sText3 = "Ошибка"
MsgBox(sText1 + Chr(13) + sText2,16,sText3)
End sub