Dim selectedObjects As IGenericAttrObjList = Main.GetSelectedObjects |
Dim selectedObjects As List(Of IdName) = Designer.GetSelObjs() |
Public Function OnDrop(ByVal sender As Object, ByVal dropData As DropData, ByVal dropTarget As DropTarget, ByRef effects As DragDropEffects) As Boolean Implements IShellAddIn.OnDrop Dim selectedObjects As IGenericAttrObjList = dropData.Selection |
For Each selectedObject In selectedObjects Dim strType As String = selectedObject.Name Dim objectId As Integer = selectedObject.Id next |