0

我正在制作一个添加和提取文件的文件容器。它允许通过将文件拖放到列表视图中来将文件添加到存档中,但现在我想支持相反的方式,将多个项目从列表视图拖放到计算机上的本地文件夹中,并将目标文件夹返回给我所以我可以处理它。

4

1 回答 1

0

You can start handling MouseDown event and creating a list of selected items:

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
于 2013-07-02T14:42:48.587 回答