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


Реальные объекты и инициирование событий - часть 2


Пример 4.7.

В этом модуле объявлены два объекта класса Личность и один объект класса Личности. Две процедуры - Знакомство и CallEvents вызываются в ответ на щелчки командных кнопок в соответствующих обработчиках событий. Первой должна вызываться процедура Знакомство, где объекты FriendOne и FriendTwo получают "нормальные" значения и происходит Знакомство с ними. Важно, что здесь же происходит связывание этих объектов с их двойниками. Обратите внимание, нам понадобился объект FOne класса Личности, чтобы вызвать его метод Connect и связать эти пары объектов. В процессе работы этих модулей будет вестись диалог с пользователем. На следующих рисунках показаны сообщения, выдаваемые обработчиками событий ИзменениеФамилии и ДеньРождения.

Обработчик события ИзменениеФамилии объекта One

Рис. 4.6.  Обработчик события ИзменениеФамилии объекта One

Обработчик события ИзменениеФамилии объекта Two

Рис. 4.7.  Обработчик события ИзменениеФамилии объекта Two

Обработчик события ДеньРождения объекта Two

Рис. 4.8.  Обработчик события ДеньРождения объекта Two

Приведем еще результаты отладочной печати:

Станислав Федотов родился 21.05.39 Катя Павлова родилась 22.03.79 22.03.79 - 22.03.99 13:14:01 Станислав Федотов родился 21.05.39 Катя Волконская родилась 22.03.79




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



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