我正在制作一个添加和提取文件的文件容器。它允许通过将文件拖放到列表视图中来将文件添加到存档中,但是现在我想支持相反的方式,将列表视图中的多个项目拖放到计算机上的本地文件夹中,并将目标文件夹返回给我所以我可以处理它。
答案 0 :(得分:0)
您可以开始处理MouseDown
事件并创建所选项目列表:
Private Sub myListBox_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles myListBox.MouseDown
Dim selectedItemsList As New Collections.Specialized.StringCollection
selectedItemsList.Add(myListBox.SelectedItem.ToString)
Dim dataObj As New DataObject
dataObj.SetFileDropList(selectedItemsList)
myListBox.DoDragDrop(dataObj, DragDropEffects.Copy)
End Sub