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. |
Закрыть окно |
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim Msg As String Const MinTemp = 34 Const MaxTemp = 42 Msg = "Ошибка ввода:" & vbCrLf 'Проверка, являются ли данные числовыми If Not IsNumeric(TextBox1.Text) Then Msg = Msg & "Введите числовые данные в формате: ##.#" MsgBox Msg Cancel = True 'Оставляет фокус в поле ввода ElseIf TextBox1.Text < MinTemp Then Msg = Msg & "Температура слишком низкая" & vbCrLf _ & "Проверьте, что с Вашим больным!" MsgBox Msg Cancel = True 'Оставляет фокус в поле ввода ElseIf TextBox1.Text > MaxTemp Then Msg = Msg & "Температура слишком высокая" & vbCrLf _ & "Проверьте, что с Вашим больным!" MsgBox Msg Cancel = True 'Оставляет фокус в поле ввода Else GlobeVar = TextBox1.Text Debug.Print GlobeVar End If End Sub |
Пример 12.2. |
Закрыть окно |