Программа 20.22. Объявление объектов класса, определенного пользователем
Программа 20.22. Объявление объектов класса, определенного пользователем
Sub ObjectExample () Dim author As New Person Dim he As Object
author.perslnit "Novikov", #10.10.51*
Set he = author
he.persPrint End Sub
После объявления объектов, определенных пользователем, уместно рассказать об объявлении нового класса на основе уже созданного. Как мы говорили выше, для этого предусмотрен механизм встраивания объектов родительского класса в новый класс. Таким образом, объект класса родителя становится значением свойства класса потомка. Но объявление такого свойства синтаксически выглядит как объявление объекта класса. Продемонстрируем встраивание классов на примере создания нового класса Book. Для этого сначала проделаем стандартную процедуру создания нового модуля класса и присваивания ему имени Book. Потом встроим объект author класса Person И добавим СВОЙСТВО title И Два метода booklnit И bookPrint.
Метод bookinit инициализирует объект класса Book, в качестве параметров этот метод получает строку для инициализации свойства title и ссылку на объект класса Person для инициализации свойства author.
