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


Пример 5.5 - часть 2


Private Property Get Личность_ВашеИмя() As String

Личность_ВашеИмя = Сам.ВашеИмя

End Property

Private Property Let Личность_ВашеОтчество(ByVal NewValue As String)

Сам.ВашеОтчество = NewValue

End Property

Private Property Get Личность_ВашеОтчество() As String

Личность_ВашеОтчество = Сам.ВашеОтчество

End Property

'Реализация интерфейсов класса Машина

Private Property Get Машина_ДатаВыпускаМашины() As Date

Машина_ДатаВыпускаМашины = ЕгоМашина.ДатаВыпускаМашины

End Property

Private Property Get Машина_МаркаМашины() As String

Машина_МаркаМашины = ЕгоМашина.МаркаМашины

End Property

Private Property Get Машина_ЦветМашины() As String

Машина_ЦветМашины = ЕгоМашина.ЦветМашины

End Property

Private Sub Машина_PrintDataCar()

ЕгоМашина.PrintDataCar

End Sub

Private Sub Машина_НоваяМашина(M As String, D As Date, C As String)

ЕгоМашина.НоваяМашина M, D, C

End Sub

'Собственный интерфейс класса ВладелецМашины

'Public методы - интерфейс Владельца машины

Public Sub InitCarOwner(FN As String, LN As String, DoB As Date, _

Marka As String, DB As Date, Color As String)

'Инициализация данных о хозяине и его машине

Личность_InitPerson FN, LN, DoB

Машина_НоваяМашина Marka, DB, Color

End Sub

Public Sub ConnectOwnerAndCar(pers As Личность, car As Машина)

'соединяет данные о хозяине и его новой машине

Сам.CopyPerson pers

Машина_НоваяМашина car.МаркаМашины, car.ДатаВыпускаМашины, _

car.ЦветМашины

End Sub

Public Sub PrintOwnerData()

Личность_PrintPerson

Debug.Print " владеет машиной: "

Машина_PrintDataCar

End Sub




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



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