By Thunis Kruger - Tuesday, July 23, 2013
How do I retrieve the Shape I dropped on?
Private Sub document_DragDrop(args As NNodeDragEventArgs) Handles document.DragDrop
Dim sFormats As String() = args.Data.GetFormats
Dim a As String = args.Data.GetData(sFormats(0))
Dim obj As Object = args.HitNode.ParentNode
' Dim shapes As NNodeList = view.Document.HitTest(New NPointF(args.X, args.Y), -1, NFilters.Shape2D, view.ProvideDocumentHitTestContext())
If TypeOf obj Is NDocument Then
Return
Else
Dim n As NShape = CType(obj, NShape)
n.Text = a
args.Handled = True
End If
End Sub
|
|