リストビューでドラッグドロップで処理を可能にする

リストビューを２つ表示させ、片方のリストをドラッグし、もう片方にコピーする方法を紹介します。

（１）ドラッグドロップされる側のリストビューのプロパティでAllowDropをTrueにする

（２）ドラッグドロップされる側のリストビューにItemDragイベントを作成する。

（３）ドラッグドロップする側のリストビューにDragEnterイベントを作成する。

（４）ドラッグドロップする側のリストビューにDragDropイベントを作成する。

実際は、DoDragDrop関数の第1引数でデータを渡し、受け側でそのデータに対して処理を行いますが、下記の例では、Testという文字列だけを渡すようになってます。

Private Sub From_ItemDrag(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemDragEventArgs) Handles From.ItemDrag
Dim strCmd As String

'選択したオブジェクトをドラッグ
strCmd = "Test"
DoDragDrop(strCmd, DragDropEffects.Copy)

End Sub

Private Sub To_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles To.DragEnter

'有効なドラッグか？
If e.Data.GetDataPresent(GetType(String)) = True Then
If CStr(e.Data.GetData(GetType(String))) = "Test" Then
e.Effect = DragDropEffects.Copy
End If
End If

End Sub

Private Sub To_DragDrop(ByVal sender As Object, ByVal e As

System.Windows.Forms.DragEventArgs) Handles To.DragDrop

'有効なドラッグか？
If e.Data.GetDataPresent(GetType(String)) = True Then
If CStr(e.Data.GetData(GetType(String))) = "Test" Then
'ここでデータに対する処理を行う
End If
End If

End Sub