Основы офисного программирования и язык VBA


Вывод сообщений. Функция MsgBox - часть 3


Возвращаемые MsgBox значения приведены в таблице:

Имя константыЗначениеНажатая кнопка
vbOK 1OK
vbCancel 2Cancel
vbAbort 3Abort
vbRetry 4Retry
vbIgnore 5Ignore
vbYes 6Yes
vbNo 7No

Если в окне есть кнопка Cancel, нажатие клавиши Esc завершает работу в окне и возвращается тот же код vbCancel, что и при выборе кнопки Cancel.

В следующем примере создается окно с сообщением об ошибке и вопросом о продолжении вычисления. В нем пиктограмма важного сообщения и кнопки Yes и No, причем вторая - кнопка, выбираемая по умолчанию. Файл со справкой называется ERRORS.HLP, а номер контекстной справки в этом файле равен 200.

Public Sub Mes2() Dim Msg As String, MyString As String Dim Btns As Integer Dim Title As String, Help As String Dim NmbCont As Integer, Result As Integer

Title = " Вы ввели неверные данные !" ' заголовок окна. Msg = "Будем продолжать работу ?" ' сообщение. Btns = vbYesNo + vbCritical + vbDefaultButton2 ' кнопки и свойства Help = "ERRORS.HLP" ' имя файла со справкой NmbCont = 200 ' номер темы ' Вывод сообщения. Result = MsgBox(Msg, Btns, Title, Help, NmbCont) If Result = vbYes Then ' пользователь нажал кнопку Yes. MyString = "Да" ' действия по продолжению работы '... Else ' пользователь нажал кнопку No. MyString = "Нет" ' действия по прекращению работы '... End If

End Sub

Пример 12.1.

При этом вызове на экране появится окно:

Сообщение о неверных данных

Рис. 12.4.  Сообщение о неверных данных




Начало  Назад  Вперед



Книжный магазин