Public Sub treeView1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs)
' Retrieve the client coordinates of the drop location.
Dim targetPoint As Point = sender.PointToClient(New Point(e.X, e.Y))
' Retrieve the node at the drop location.
Dim targetNode As System.Windows.Forms.TreeNode = sender.GetNodeAt(targetPoint)
msgbox(targetNode.text)
'msgbox(draggedNode.text)
msgbox(e.Data.GetData(Gettype(System.Windows.Forms.TreeNode)).Tostring())‘//为什么这句代码获取不到数据呢？
' Retrieve the node that was dragged.
Dim draggedNode As System.Windows.Forms.TreeNode = e.Data.GetData(Gettype(System.Windows.Forms.TreeNode )) ‘//为什么这句代码获取不到拖曳的节点呢？该如何修改？
endsub
加好友 
发短信
Post By：2016/8/28 6:21:00 [显示全部帖子]
