Dim sender As System.object = Args(0)
Dim e As System.Windows.Forms.DragEventArgs = Args(1)
If Vars("来源树") = "" Then
Exit Function
End If
If Vars("去向树") = "" Then
Exit Function
End If
Dim myTree_in As WinForm.TreeView = Forms("窗口").Controls(Vars("来源树")) '定义来源目录树
Dim myTree_out As WinForm.TreeView = Forms("窗口").Controls(Vars("去向树")) '定义去向目录树
Dim vbTree_in As System.Windows.Forms.TreeView = myTree_in.BaseControl '取后台对象
Dim vbTree_out As System.Windows.Forms.TreeView = myTree_out.BaseControl '取后台对象
Dim NodData As WinForm.TreeNode = e.Data.GetData("Foxtable.WinForm.TreeNode") '取数据
If myTree_in.SelectedNode Is Nothing Then
Exit Function
End If
Dim vbNod As System.Windows.Forms.TreeNode = vbTree_in.SelectedNode '没办法,只能绕弯走
Dim NewvbNod As System.Windows.Forms.TreeNode = vbNod.Clone() '添加下级节点
Dim pt = sender.PointToClient(new Point(e.X, e.Y)) '取当前坐标
Dim NodNet As System.Windows.Forms.TreeNode = vbTree_out.GetNodeAt(pt) '取坐标所在位置的节点
If NodNet Is Nothing Then
'vbTree_out.nodes.Add(NewvbNod)
Else If NodNet.Level = 0 Then
'vbTree_out.nodes.Add(NewvbNod)
Else If NodNet.Parent.name = NodData.name Then
Exit Function
Else
'同级移动
NodNet.Parent.Nodes.Insert(NodNet.Index, NewvbNod)
'添加到下级
'NodNet.Nodes.Insert(NodNet.nodes.count, NewvbNod)
myTree_in.Nodes.Remove(NodData)
vbTree_out.SelectedNode = NewvbNod
End If
加好友 
发短信
Post By：2019/10/28 17:04:00 [显示全部帖子]
