vb.net 在TreeView中拖放节点

来源：网易科技报道 作者： 出处：巧巧读书 2008-02-02 进入讨论组

• 关 键 词：
• windows
• vb.net
• html

上一页 1 2 3 下一页 

Private Sub TreeView1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TreeView1.DragDrop

If TreeView1.SelectedNode Is Nothing Then Return

'返回鼠标在控件中的位置

Dim p As Point = TreeView1.PointToClient(New Point(e.X, e.Y))

'把鼠标放置位置转换为项

Dim dragToNode As TreeNode = TreeView1.GetNodeAt(p.X, p.Y)

If dragToNode Is Nothing Then Return

'检查是不是把父节点拖放到子节点,不允许父节点拖放到它之下的子节点

Dim CheckNode As TreeNode = dragToNode.Parent

Do Until CheckNode Is Nothing

If CheckNode Is TreeView1.SelectedNode Then

MessageBox.Show("不允许拖放父节点到子节点", "警告", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

Return

End If

CheckNode = CheckNode.Parent

Loop

'在目标位置插入拖到的项

Dim insertIndex As Integer = dragToNode.Index

Dim insertNode As TreeNode = CType(TreeView1.SelectedNode.Clone, TreeNode)

If dragToNode.Parent Is Nothing Then

TreeView1.Nodes.Insert(insertIndex, insertNode)

Else

dragToNode.Parent.Nodes.Insert(insertIndex, insertNode)

End If

'http://www.qqread.com/book/myvbnet/my0058.html

'移除移动的节点

TreeView1.SelectedNode.Remove()

End Sub

URL查看 http://www.qqread.com/book/myvbnet/my0058.html 更多内容请看.NET移动与嵌入式技术、.NET开发手册专题，或进入讨论组讨论。

上一页 1 2 3 下一页 

【收藏此文】【大 中 小】【打印】【关闭】

较早的文章：vb.net 在ListView内部拖放项

较新的文章：另一种眼光看VB中的匿名类型