Основы офисного программирования и язык 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

Пример 10.4.

Закрыть окно






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



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