经过长时间学习VB.NET表间拖放，于是和大家分享一下，看完本文你肯定有不少收获，希望本文能教会你更多东西。

VB.NET表间拖放

VB.NET表间拖放有一个情况是从一个列表移动项目到另一个列表。这种情况下拖放将变得更加简单。向窗体中添加两个ListView控件，并把他们的AllowDrop、Multiselect、View属性分别设置成True、True、List。并添加如下代码：

Private Sub ListView_ItemDrag(ByVal sender As Object, ByVal e As _  
System.Windows.Forms.ItemDragEventArgs) Handles ListView1.ItemDrag, _  
ListView2.ItemDrag  
Dim myItem As ListViewItem  
Dim myItems(sender.SelectedItems.Count - 1) As ListViewItem  
Dim i As Integer = 0 
 
' Loop though the SelectedItems collection for the source.  
For Each myItem In sender.SelectedItems  
' Add the ListViewItem to the array of ListViewItems.  
myItems(i) = myItem  
ii = i + 1  
Next  
' Create a DataObject containg the array of ListViewItems.  
sender.DoDragDrop(New _  
DataObject(System.Windows.Forms.ListViewItem(), myItems), _  
DragDropEffects.Move)  
End Sub  
 
Private Sub ListView_DragEnter(ByVal sender As Object, ByVal e As _  
System.Windows.Forms.DragEventArgs) Handles ListView1.DragEnter, _  
ListView2.DragEnter  
' Check for the custom DataFormat ListViewItem array.  
If e.Data.GetDataPresent(System.Windows.Forms.ListViewItem()) Then  
e.Effect = DragDropEffects.Move  
Else  
e.Effect = DragDropEffects.None  
End If  
End Sub  
 
Private Sub ListView_DragDrop(ByVal sender As Object, ByVal e As _  
System.Windows.Forms.DragEventArgs) Handles ListView1.DragDrop, _  
ListView2.DragDrop  
Dim myItem As ListViewItem  
Dim myItems() As ListViewItem = _ e.Data.GetData(System.Windows.Forms.ListViewItem())  
Dim i As Integer = 0 
 
For Each myItem In myItems  
' Add the item to the target list.  
sender.Items.Add(myItems(i).Text)  
' Remove the item from the source list.  
If sender Is ListView1 Then  
ListView2.Items.Remove(ListView2.SelectedItems.Item(0))  
Else  
ListView1.Items.Remove(ListView1.SelectedItems.Item(0))  
End If  
ii = i + 1  
Next  
End Sub 

你可能不明白为什么这个例子中用的是ListView控件而不是ListBox控件，这个问题题的好，因为ListBox控件不支持多项拖放。ListView和TreeView控件有个ItemDrag事件。上面的例子中，一个ItemDrag事件句柄覆盖了两个控件，并在列在Handles从句。Sender参数表明哪个控件正在初始化Drag。因为DataFormats类没有ListViewItem类型成员，数据必须传递给一个系统类型。ItemDrag创建了一个ListViewItem类型的数组，并用一个循环来遍历SelectedItem集合。在DoDragDrop方法中，创建了一个新的DataObject并用数组来来对它进行操作。可以用这种方法来拖放任何系统类型。

VB.NET表间拖放结论：

正像你从这些例子中所看到的一样，为应用程序添加拖放操作并不是很难。当你理解了这些基本的技巧后，你就可以为你自己的程序添加拖放的代码了 。

【编辑推荐】

1. 分析VB QuickSort应用程序
2. 如何掌握强大的VB.NET ReadLine()方法
3. 讲述强大的VB.NET Web Forms，使用起来却如此简单
4. 两步就可以掌握VB使用ArrayList类
5. VB.NET应用程序的入门指南