Do drag n drop in VB.Net in fifteen lines of code - (too easy)

[James Allen Bressem]

- hehe - When you're explaining every angle of a socio economic scenario in
the context of a review of current technical issues it can take a little
time to get it right - slibS, slibW, slibD (so let it be Written, so let it
be Said, so let it be Done)

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 drag n drop in a TreeView control with 15 lines of code?
'---------------------------------------------------------------------------
----------------------------------
Protected Sub TreeView1_Mouse Move(ByVal sender As Object, ByVal e As
System.Windows. Forms.MouseEven tArgs) Handles TreeView1.Mouse Move
Dim sNodePathStr As String
sNodePathStr = LinkTree.Select edNode.FullPath ()
Dim dropEffect As DragDropEffects = TreeView1.DoDra gDrop(sNodePath Str,
DragDropEffects .Copy)
End Sub
Private Sub TreeView1_DragO ver(ByVal sender As Object, ByVal e As
System.Windows. Forms.DragEvent Args) Handles TreeView1.DragO ver
e.Effect = DragDropEffects .Copy
End Sub
Private Sub TreeView1_DragD rop(ByVal sender As Object, ByVal e As
System.Windows. Forms.DragEvent Args) Handles TreeView1.DragD rop
Dim oNode As TreeNode
Dim oDroppedNodePat h As Object =
CType(e.Data.Ge tData(GetType(S ystem.String)), System.Object)
Debug.WriteLine ("Selected Item: " & CType(oDroppedN odePath, String))
oNode = TreeView1.GetNo deAt(e.X, e.Y)
Debug.WriteLine ("Drop Site: " & oNode.FullPath)
End Class
'---------------------------------------------------------------------------
----------------------------------

--
-----------------------------
Name: James Allen Bressem
Phone: [phone]
Email: 18*****@SprintM ail.Com
UCOM: http://www.ucom-ism.com
Mirror site: http://www.geocities.com/wizardofwizards
-----------------------------

[Fergus Cooney]

Yo JABBA

Today it is Sunday - And God said let there be Trolls.

|| slibS, slibW, slibD

small library String, Word and DoubleWord.

--
(Please ignore this - there's a feud going on)
=============== =============== =============== =====
Quote of the day
Herfried:
I don't need/want human interaction.
=============== =============== =============== =====

[Cor]

Hi Fergus,

I saw in a message you probably did not read this link

http://www.microsoft.com/communities...t/default.mspx

Maybe it is good for you if you need it for someone to show it

:-)))

Cor