Функция MsgBox
MsgBox выводит на экран диалоговое окно, содержащее сообщение, устанавливает режим ожидания нажатия кнопки, а затем возвращает значение типа Integer, указывающее, какая кнопка была нажата. MsgBox(<Сообщение>[, <Кнопки>] [, <Заголовок>] [, Файл помощи, Раздел помощи]) Синтаксис функции MsgBox содержит именованные аргументы (табл. 7).
Таблица 7 Аргументы функции MsgBox
Пример использования функции MsgBox: Sub primer() Dim i As Integer ' Объявление переменной i для хранения кода нажатой кнопки i=Msgbox ("Программа началась",vbOKCancel,"Моя программа") ' Отображение окна-сообщения с текстом "Программа началась", ' кнопками OK и Cancel, заголовком "Моя программа". ' Считывание кода нажатой пользователем кнопки (OK или ' Cancel) в переменную i MsgBox "Код нажатой кнопки = " & i,,"Моя программа" ' Отображение окна-сообщения с кодом нажатой кнопки ' из переменной i и заголовком "Моя программа" End Sub
или
|