リストボックスからデスクトップに項目をドラッグアンドドロップする

Question

添付ファイル（ファイルまたはディレクトリ）を表示するいくつかの項目を含むListBoxコントロールがあります。

ユーザーは、デスクトップからアイテムをListBoxにドラッグアンドドロップできるようになりましたが、ユーザーがListBoxからアイテムをデスクトップにドラッグアンドドロップできるようにはできませんでした。

これは可能ですか？これは、あなたが始めるのに役立ちます

Answer 1

ホープ（と仮定し、リストボックスには、彼らの完全なパスを持つファイルのリストだけです）：

Private Sub ListBox1_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles ListBox1.MouseDown 
    Dim fileList As New Collections.Specialized.StringCollection 
    fileList.Add(ListBox1.SelectedItem.ToString) 

    Dim dataObj As New DataObject 
    dataObj.SetFileDropList(fileList) 

    ListBox1.DoDragDrop(dataObj, DragDropEffects.Copy) 
End Sub