VB.NET如何實現(xiàn)表間拖放

這篇文章主要為大家展示了“VB.NET如何實現(xiàn)表間拖放”，內(nèi)容簡而易懂，條理清晰，希望能夠幫助大家解決疑惑，下面讓小編帶領(lǐng)大家一起研究并學(xué)習(xí)一下“VB.NET如何實現(xiàn)表間拖放”這篇文章吧。

VB.NET表間拖放

VB.NET表間拖放有一個情況是從一個列表移動項目到另一個列表。這種情況下拖放將變得更加簡單。向窗體中添加兩個ListView控件，并把他們的AllowDrop、Multiselect、View屬性分別設(shè)置成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參數(shù)表明哪個控件正在初始化Drag。因為DataFormats類沒有ListViewItem類型成員，數(shù)據(jù)必須傳遞給一個系統(tǒng)類型。ItemDrag創(chuàng)建了一個ListViewItem類型的數(shù)組，并用一個循環(huán)來遍歷SelectedItem集合。在DoDragDrop方法中，創(chuàng)建了一個新的DataObject并用數(shù)組來來對它進(jìn)行操作。可以用這種方法來拖放任何系統(tǒng)類型。

以上是“VB.NET如何實現(xiàn)表間拖放”這篇文章的所有內(nèi)容，感謝各位的閱讀！相信大家都有了一定的了解，希望分享的內(nèi)容對大家有所幫助，如果還想學(xué)習(xí)更多知識，歡迎關(guān)注億速云行業(yè)資訊頻道！