简单讲述VB.NET表间拖放

经过长时间学习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表间拖放结论：

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

网站标题：简单讲述VB.NET表间拖放
文章路径：http://www.shufengxianlan.com/qtweb/news21/64371.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：创新互联

猜你还喜欢下面的内容