Visual Basic |
---|
Public Property SuperObjectDefs( _ 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 - у родительского есть свои базовые типы, наш тип наследует и им тоже
Производные типы объектов наследуют все свойства базовых, дополняя их своими собственными. Коллекции унаследованных атрибутов не могут быть отредактированы. Пример иерархии наследования: тип "Документ"; производными от него типами могут быть "Графический документ", "Текстовый документ". В свою очередь, текстовыми документами могут быть договор, смета, пояснительная записка, а графическими - чертеж, сканированное изображение. Наследование может быть сложным - например, тип "Архивный документ" может наследовать свойства и текстового, и графического документов.