Создание экземпляра класса в связанном дереве

[Alec]

VB 2008. (Опыта в .Net мало)
Создаю связанное дерево (связи типа Родитель, Подчиненный, Следующий, Предыдущий).
Ветви - разных классов, производных от базового, реализующего связи.
Вопрос такого характера. Как лучше добавлять ветви в дерево, исключив необходимость (и возможность) создания экзепляров классов ветвей без привязки к дереву.
Вижу пока два пути.
Первый:
Объявлять Enum с номерами типов ветвей, фукнкцию добавления в базовом классе с параметром номера типа ветви. Соответственно создание экземпляра класса ветви нужного типа, выбираемого с помощью Select Case.
Но. Объявление нового класса ветви требует внесение дополнений в базовый класс, чего не хочется.
Второй:
Объявлять Shared функции, перегруженные в каждом производном классе, в них создание экземпляров нужного типа.
Опять же, объявление нового производного класса потребует объявления в нем новой функции.
Учитывая, что пишу урывками в свободное время, ошибки здесь гарантированы...
Теперь вопрос.
Возможно ли передать в функцию (которую я хочу только объявить в базовом классе) тип нужного класса ветви, и как в этой функции создать экземпляр объекта именно этого типа?

[Nord777]

Возможно ли передать в функцию (которую я хочу только объявить в базовом классе) тип нужного класса ветви, и как в этой функции создать экземпляр объекта именно этого типа?

Код: Выделить всё

Public Class BaseClass

   Public Sub CreateInstance(Of TT As {BaseClass})()
      MsgBox("Создать экземпляр класса " & GetType(TT).Name)
      Dim AnyType As TT = Activator.CreateInstance(GetType(TT))
   End Sub

End Class

Public Class OneClass
   Inherits BaseClass
End Class

Public Class TwoClass
   Inherits BaseClass
End Class

Применение:

Код: Выделить всё

      Dim cls As New BaseClass
      cls.CreateInstance(Of OneClass)()
      cls.CreateInstance(Of TwoClass)()

[Alec]

Вот оно самое!
Значит плохо искал.
Только вот мне непонятен таинственный смысл фигурных скобок в

Код: Выделить всё

Public Sub CreateInstance(Of TT As {BaseClass})()

 

Что с ними, что без них - результат один. Зачем они?

[Nord777]

Что с ними, что без них - результат один. Зачем они?

Это ограничение параметра. В данном случае можно передать только экземпляр класса BaseClass или производный от него.
Можно написать так: {BaseClass, IDisposable}, тогда можно передать только экземпляр класса BaseClass или производный от него и реализующий интерфейс IDisposable. За этим и нужны скобки.