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


Пример 10.4


Option Explicit

'Класс Day

'Свойства класса

Private today As Date

Private temperature As Integer

Public Property Get Сегодня() As Date

Сегодня = today

End Property

Public Property Let Сегодня(ByVal NewValue As Date)

today = NewValue

End Property

Public Property Get Температура() As Integer

Температура = temperature

End Property

Public Property Let Температура(ByVal NewValue As Integer)

temperature = NewValue

End Property

Public Sub CheckDay()

Dim Desc As String

Dim Numb As Long

Dim Source As String

'Проверка свойств объекта

Select Case Month(Сегодня)

Case 6 To 8

If Температура < 0 Then

'Исключительная ситуация

Desc = "Ошибка: Работа с объектом предполагает положительную

летнюю температуру!"

Numb = vbObjectError + 513

Source = " Метод CheckDay класса Day "

Err.Raise Numb, Source, Desc

End If

Case 1 To 2, 12

If Температура > 0 Then

'Исключительная ситуация

Desc = "Ошибка: Работа с объектом предполагает отрицательную

зимнюю температуру!"

Numb = vbObjectError + 514

Source = " Метод CheckDay класса Day "

Err.Raise Numb, Source, Desc

End If

End Select

End Sub




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



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