I was searching through the MSDN documentation trying to figure out
how to do drag n drop and I found a sample program. The sample program
did all sorts of fancy junk like dynamically create it's user controls
etc. (pomp - is it really necessary to be so gaudy when trying to
explain a simple point?) So, realizing the state of the economy and
the period of history in which I was so unfortunately born, I spent
the next 3 or so hours weeding through the affectatious displays of
bravado and uselessly flagrant manefestations of excess (blank lines
every where in the sample code - What does "CONCISE" mean?)
When a people are showing a near complete, generally applicable, state
of chaotic ineptitude something is wrong with the system, though it
may look fine on the outside. Which is why we have UCOM
www.UCOM-ISM.com shedding light on the source of and solution for
these obvious yet completely overlooked social problems.
Anyway; I eventually was able to find the actual code that was
necessary to do drag n drop in VB.NET:
There was 500 lines of code in the sample using a ListBox control!
I was able to do the same thing in a TreeView control with 14 lines of
code?
'-------------------------------------------------------------------------------------------------------------
Protected Sub TreeView1_MouseMove(ByVal sender As Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles TreeView1.MouseMove
Dim sNodePathStr As String
sNodePathStr = LinkTree.SelectedNode.FullPath()
Dim dropEffect As DragDropEffects = TreeView1.DoDragDrop(sNodePathStr,
DragDropEffects.Copy)
End Sub
Private Sub TreeView1_DragOver(ByVal sender As Object, ByVal e As
System.Windows.Forms.DragEventArgs) Handles TreeView1.DragOver
e.Effect = DragDropEffects.Copy
End Sub
Private Sub TreeView1_DragDrop(ByVal sender As Object, ByVal e As
System.Windows.Forms.DragEventArgs) Handles TreeView1.DragDrop
Dim oDroppedNodePath As Object =
CType(e.Data.GetData(GetType(System.String)), System.Object)
Debug.WriteLine("Selected Item: " & CType(oDroppedNodePath, String))
oNode = LinkTree.GetNodeAt(e.X, e.Y)
Debug.WriteLine("Drop Site: " & oNode.FullPath)
End Class
'-------------------------------------------------------------------------------------------------------------
