Visual Basic |
---|
Public Property SubObjectDefs( _ Optional ByVal All As Variant _ ) As TDMSObjectDefs |
- All
- TRUE или любое целочисленное значение, кроме 0: получить коллекцию всех производных типов (всех уровней наследования).
FALSE или 0: только коллекция типов объектов, непосредственно наследовавших данному.
Свойство содержит коллекцию непосредственно производных типов объектов или все производные от данного типы (на всех уровнях наследования), в зависимости от значения параметра All, например:
MsgBox ThisObject.ObjectDef.SubObjectDefs.Count ' 1 - дочерний производный тип только один
MsgBox ThisObject.ObjectDef.SubObjectDefs(TRUE).Count ' 3 - а еще есть "внучата", они тоже наследуют нашему типу.
Производные типы объектов наследуют все свойства базовых, дополняя их своими собственными. Коллекции унаследованных атрибутов не могут быть отредактированы. Пример иерархии наследования: тип "Документ"; производными от него типами могут быть "Графический документ", "Текстовый документ". В свою очередь, текстовыми документами могут быть договор, смета, пояснительная записка, а графическими - чертеж, сканированное изображение. Наследование может быть сложным - например, тип "Архивный документ" может наследовать свойства и текстового, и графического документов.