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


Пример 12.1


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




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



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