Dim Msg As String, MyString

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

Содержание  Назад  Вперед

---

Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий

---