Отображает диалоговое окно, определенное пользователем.
Синтаксис:
MESSAGEBOX(cMessageText [, nDialogBoxType [, cTitleBarText]])
Параметры:
cMessageText
Задает текст, который должен появляться в диалоговом окне. Для переноса части сообщения на новую строку используйте в тексте cMessageText возврат каретки (CHR(13)). Высота и ширина диалогового окна будут соответствующим образом отрегулированы, чтобы вместить весь текст cMessageText.
nDialogBoxType
Определяет кнопки и значки диалогового окна, кнопку по умолчанию при появлении диалогового окна и поведение диалогового окна.
В приведенных ниже таблицах значения от 0 до 5 задают кнопки, отображаемые в диалоговом окне, а значения 16, 32, 48 и 64 значки диалогового окна. Значения 0, 256 и 512 определяют, какая кнопка в диалоговом окне используется по умолчанию, то есть изображается нажимаемой в открывающемся диалоговом окне.
Если аргумент nDialogBoxType опущен, это эквивалентно заданию значения 0.
Значение Кнопка диалогового окна 0 Только кнопка OK. 1 Кнопки OK и Cancel. 2 Кнопки Abort, Retry и Ignore. 3 Кнопки Yes, No и Cancel. 4 Кнопки Yes и No. 5 Кнопки Retry и Cancel. Значение Значок 16 Знак останова. 32 Вопросительный знак. 48 Восклицательный знак. 64 Значок информации (i). Значение Кнопка, принимаемая по умолчанию 0 Первая кнопка. 256 Вторая кнопка. 512 Третья кнопка.
Аргумент nDialogBoxType может представлять собой сумму трех значений ѕ по одному из каждой таблицы. Например, если nDialogBoxType равняется 290 (2+32+256), он задает диалоговое окно со следующими характеристиками:
Результат:
Числовой.
Комментарии:
Значение, возвращаемое функцией MESSAGEBOX( ), указывает, какая кнопка была выбрана в диалоговом окне. Если в диалоговом окне с кнопкой Cancel для выхода из него нажимается клавиша ESC, то возвращается то же значение (2), что и при нажатии кнопки Cancel.
Обратите внимание, что самая короткая аббревиатура данной функции MESSAGEB( ).
В следующей таблице перечислены значения, возвращаемые функцией MESSAGEBOX( ) для каждой кнопки.
Возвращаемое значение Кнопка 1 OK 2 Cancel 3 Abort 4 Retry 5 Ignore 6 Yes 7 No
Пример:
* В следующем примере отображается пользовательское диалоговое окно. * Сообщение "Record not found. Would you like to search again?" [Запись не * найдена; не желаете ли повторить поиск?] отображается в качестве * названия этого диалогового окна, а в строке заголовка отображается * "My Application". * Пользовательское диалоговое окно содержит кнопки Yes и No, а также * значок в виде вопросительного знака; вторая кнопка (No) используется по * умолчанию. Когда вы нажимаете одну из этих кнопок, выбранная опция * показывается на экране. cMessageTitle = 'My Application' cMessageText = 'Record not found. Would you like to search again?' nDialogType = 4 + 32 + 256 * 4 = Yes and No buttons * 32 = Question mark icon * 256 = Second button is default nAnswer = MESSAGEBOX(cMessageText, nDialogType, cMessageTitle) DO CASE CASE nAnswer = 6 WAIT WINDOW 'You chose Yes' CASE nAnswer = 7 WAIT WINDOW 'You chose No' ENDCASE