为什么用一下代码不能实现listview之间拖拽？还缺少什么?

Question

为什么用一下代码不能实现listview之间拖拽？还缺少什么?
VB C# 均可以，谢谢！Private Sub listView4_ItemDrag(ByVal sender As Object, ByVal e As ItemDragEventArgs) 
    listView4.DoDragDrop(e.Item, DragDropEffects.Move) 
End Sub Private Sub listView5_DragEnter(ByVal sender As Object, ByVal e As DragEventArgs) 
    e.Effect = e.AllowedEffect 
End Sub Private Sub listView5_DragDrop(ByVal sender As Object, ByVal e As DragEventArgs) 
    Dim draggedItem As ListViewItem = DirectCast(e.Data.GetData(GetType(ListViewItem)), ListViewItem) 
    listView5.Items.Insert(0, DirectCast(draggedItem.Clone(), ListViewItem)) 
End Sub 

Answer 1

allowdrop=true
  
*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码) http://feiyun0112.cnblogs.com/

Answer 2

谢谢 allowdrop=true 已经设置过的 ，不知道是不是代码上出了问题？

Answer 3

Private Sub listView5_DragDrop(ByVal sender As Object, ByVal e As DragEventArgs) 
    Dim draggedItem As ListViewItem = DirectCast(e.Data.GetData(GetType(ListViewItem)), ListViewItem) 
    listView4.Items.Remove(draggedItem);
    listView5.Items.Insert(0, DirectCast(draggedItem.Clone(), ListViewItem)) 
End Sub