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


Пример 10.5


Public Sub WorkWithDay()

'Работа с объектами класса Day

Dim myday As New Day

Dim Msg As String

'Охраняемый блок

On Error GoTo ErrorHandler

myday.Сегодня = "9.8.99"

myday.Температура = -15

myday.CheckDay

Debug.Print myday.Сегодня, myday.Температура

Exit Sub

ErrorHandler:

If Err.Number = vbObjectError + 513 Then

Msg = vbCrLf & "Введите температуру сегодняшнего дня " _

& myday.Сегодня & vbCrLf & " Учтите, она должна быть

положительной"

myday.Температура = InputBox(Err.Source & vbCrLf &

Err.Description & Msg, "CheckDay", 15)

ElseIf Err.Number = vbObjectError + 514 Then

Msg = vbCrLf & "Введите температуру сегодняшнего дня " _

& myday.Сегодня & vbCrLf & " Учтите, она должна быть

отрицательной"

myday.Температура = InputBox(Err.Source & vbCrLf &

Err.Description & Msg, "CheckDay", -15)

End If

Resume

End Sub




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



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