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


Пример 4.7


Option Explicit

'Модуль Примеры

Public FriendOne As New Личность

Public FriendTwo As New Личность

Public FOne As New Личности

Public Sub Знакомство()

'Вызывается конструктор с параметрами

'и происходит знакомство с объектами

FriendOne.InitPerson FN:="Станислав", LN:="Федотов", _

DOB:="21.05.39"

FriendTwo.InitPerson FN:="Катя", LN:="Павлова", _

DOB:="22.03.79"

FriendOne.PrintPerson

FriendTwo.PrintPerson

FriendOne.SayWhoIs

FriendTwo.SayWhoIs

'Связывание с двойниками.

'Теперь объекты могут реагировать на события!

FOne.Connect

End Sub

Public Sub CallEvents()

Dim DOB As Date

'Вызов методов приведет к возникновению событий!

'При замене фамилии возникнет событие ИзменениеФамилии

'Заметьте, не всегда фамилия будет изменена!

FriendOne.ВашаФамилия = "Фидотов"

FriendTwo.ВашаФамилия = "Волконская"

'При попытке узнать дату рождения

'может быть вызван обработчик события ДеньРождения.

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

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

FriendOne.PrintPerson

FriendTwo.PrintPerson

End Sub




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



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