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


Пример 12.2


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




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



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