Перетаскивание на форму унаследованных классов

@Грот · Регистрация: 08.02.2013

Author24 — интернет-сервис помощи студентам

Есть класс ObjectCanvas. От него унаследован класс Hole и другие.
Detail_editor - форма, на которую перетаскиваются объекты
ObjectsNew - коллекция, в которую добавляются перетащенные объекты
Master_Drill - пространство имен

Пытаюсь в обработчике перетаскивания объекта на форму, добавить в коллекцию экземпляр класс Hole

VB.NET

Private Sub Detail_editor_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Me.DragEnter
        ObjectsNew.Add(e.Data.GetData("Master_Drill.ObjectCanvas"))
        e.Effect = DragDropEffects.Move
End Sub

Но получается только так

VB.NET

Private Sub Detail_editor_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Me.DragEnter
        ObjectsNew.Add(e.Data.GetData("Master_Drill.Hole"))
        e.Effect = DragDropEffects.Move
End Sub

Как сделать, чтобы добавлялись все объекты унаследованные от класса ObjectCanvas, что бы не надо было "принимать" их по отдельности? И можно ли тип объекта указывать не строкой типа "Master_Drill.ObjectCanvas"?

Добавлено через 3 минуты
Хотя бы как проверить, является ли один класс унаследован от другого?

	25.08.2016, 04:33