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