VB.Net程序设计：ListView拖动自己的item放到自己另外一个item里面

最新推荐文章于 2025-05-15 12:43:38 发布

沐NeMo

最新推荐文章于 2025-05-15 12:43:38 发布

阅读量1.7k

点赞数

分类专栏： 2.VB.Net 文章标签： listview vb.net integer class

本文链接：https://blog.youkuaiyun.com/linjimu/article/details/6673644

版权

2.VB.Net 专栏收录该内容

120 篇文章

订阅专栏

本文介绍了一个使用Visual Basic编写的简单程序，该程序实现了在ListView控件中拖动一个项目到另一个项目上的功能。文章提供了完整的源代码，并展示了如何在拖放过程中处理数据交换。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

源于csdn网友的提问。帮写的一个程序。
ListView拖动自己的item放到自己另外一个item里面

释放操作里面取得两个item的值后，就可以处理更多相关的事物，操作了。例如文件的移动，复制等，数据交换等。

拖放操作界面

代码：释放操作里面取得两个item的值后，就可以处理更多相关的事物，操作了。例如文件的移动，复制等，数据交换等。

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.ListView1.AllowDrop = True
        Me.ListView1.LargeImageList = Me.ImageList1
        Dim item As ListViewItem
        item = New ListViewItem
        item.Name = "1"
        item.Text = "first"
        item.ImageIndex = 0
        item.Tag = 1
        Me.ListView1.Items.Add(item)
        item = New ListViewItem
        item.Name = "2"
        item.Text = "second"
        item.ImageIndex = 0
        item.Tag = 2
        Me.ListView1.Items.Add(item)
    End Sub

    Private Sub ListView1_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListView1.DragEnter
        If e.Data.GetDataPresent(GetType(ListViewItem)) Then
            e.Effect = DragDropEffects.Move
        End If
    End Sub

    Private Sub ListView1_ItemDrag(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ItemDragEventArgs) Handles ListView1.ItemDrag
        If Me.ListView1.SelectedItems.Count > 0 Then
            Me.ListView1.DoDragDrop(CType(Me.ListView1.SelectedItems.Item(0), ListViewItem), DragDropEffects.All)
        End If
    End Sub

    Private Sub ListView1_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListView1.DragDrop
        If e.Data.GetDataPresent(GetType(ListViewItem)) Then
            'Dim hit As ListViewHitTestInfo = ListView1.HitTest(e.X, e.Y)
            'Me.Label1.Text = "ok"
            'If hit.Item IsNot Nothing Then
            '    Me.Label1.Text = "你釋放與item：" & hit.Item.Text
            'End If
            Dim item As ListViewItem
            Dim OnItem As ListViewItem
            Dim lv As ListView = CType(sender, ListView)
            Dim clX As Integer = lv.PointToClient(New Point(e.X, e.Y)).X
            Dim clY As Integer = lv.PointToClient(New Point(e.X, e.Y)).Y
            If e.Data.GetDataPresent("System.Windows.Forms.ListViewItem", False) Then
                'dragging a listview item
                item = CType(e.Data.GetData("System.Windows.Forms.ListViewItem"), ListViewItem)
                OnItem = CType(sender, ListView).GetItemAt(clX, clY)
                'destLv.Items.Insert(OnItem.Index, item.Clone)
                'item.Remove()
                Me.Label1.Text = String.Format("你拖动 {0} 并释放在 {1} 上", item.Text, OnItem.Text)
            End If
        End If
    End Sub
End Class