vb.net 在ListView内部拖放项

来源：qqread 作者：douces 出处：巧巧读书 2008-01-26 进入讨论组

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

上一页 1 2 3 4 下一页 

QQRead:http://www.qqread.com/book/myvbnet/my0057.html

三、编写代码：

1、ListView1_ItemDrag 事件处理程序

拖动项的时候，首先引发的是 ListView1_ItemDrag 事件，我们需要在这里通过 DoDragDrop 方法来为拖动效果的私有剪贴板添加数据，代码如下：

ListView1.DoDragDrop(ListView1.SelectedItems, DragDropEffects.Move)

2、ListView.DragEnter 事件

在该事件中添加如下代码验证拖放的数据：

Private Sub ListView1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListView1.DragEnter

Dim i As Integer

For i = 0 To e.Data.GetFormats().Length - 1

If e.Data.GetFormats()(i).Equals("System.Windows.Forms.ListView+SelectedListViewItemCollection") Then

e.Effect = DragDropEffects.Move

End If

Next

End Sub

http://www.qqread.com/book/myvbnet/my0057.html

3、ListView1_DragDrop 事件

在该事件中添加移动项的代码，我们移动鼠标的时候，DragEventArgs 的 X 和 Y 属性在屏幕坐标中，而不是在工作区坐标中，所以我们需要把它转换为ListView 控件区域中的坐标，代码如下所示：

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

然后通过如下代码获得鼠标所在位置的项：

Dim dragToItem As ListViewItem = ListView1.GetItemAt(p.X, p.Y)

当在新的位置插入某一个项的时候，必须复制该项的一个副本才能在新位置插入，完毕之后删除该项，代码如下所示：

Dim insertitem As ListViewItem = CType(dragItem.Clone, ListViewItem)

ListView1.Items.Insert(itemIndex, insertitem)

ListView1.Items.Remove(dragItem)

更多内容请看.NET移动与嵌入式技术、.NET开发手册专题，或进入讨论组讨论。

上一页 1 2 3 4 下一页 

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

较早的文章：使用vb.net获取文件或文件夹的图标

较新的文章：vb.net 在TreeView中拖放节点