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


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


DoB = FriendOne.ВашаДатаРождения

Debug.Print DoB

DoB = FriendTwo.ВашаДатаРождения

Debug.Print DoB

FriendOne.PrintPerson

FriendTwo.PrintPerson

'События не наследуются

Set FriendOne = OwnerTwo

'Нельзя связать теперь объект FriendOne с двойником

'FOne.Connect

FriendOne.ВашаФамилия = "Воробьянинов"

FriendOne.PrintPerson

End Sub

Public Sub Группа()

Const SizeGroup = 6

Const SizeGarage = 6

Dim i As Byte

Dim Group(1 To SizeGroup) As Личность

Dim Гараж(1 To SizeGarage) As Машина

Set Group(1) = FriendOne

Set Group(2) = FriendTwo

Set Group(3) = FriendThree

Set Group(4) = OwnerOne

Set Group(5) = OwnerTwo

Set Group(6) = OwnerThree

For i = 1 To SizeGroup

Group(i).SayWhoIs

Next i

Set Гараж(1) = carOne

Set Гараж(2) = carTwo

Set Гараж(3) = carThree

Set Гараж(4) = OwnerOne

Set Гараж(5) = OwnerTwo

Set Гараж(6) = OwnerThree

For i = 1 To SizeGarage

Гараж(i).PrintDataCar

Next i

End Sub

Public Sub ЛюдиИМашины()

Люди

Cars

CarOwners

Группа

PolyMorf FriendTwo

PolyMorf OwnerTwo

End Sub

Public Sub PolyMorf(One As Личность)

One.SayWhoIs

End Sub




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



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