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

概述源于csdn网友的提问。帮写的一个程序。 ListView拖动自己的item放到自己另外一个item里面 释放 *** 作里面取得两个item的值后，就可以处理更多相关的事物， *** 作了。例如文件的移动，复制等，数据交换等。 代码：释放 *** 作里面取得两个item的值后，就可以处理更多相关的事物， *** 作了。例如文件的移动，复制等，数据交换等。 Public Class Form1 Private Sub

源于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 SubEnd Class

总结

以上是内存溢出为你收集整理的VB.Net程序设计：ListView拖动自己的item放到自己另外一个item里面全部内容，希望文章能够帮你解决VB.Net程序设计：ListView拖动自己的item放到自己另外一个item里面所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。