Question

vb如何实现文件拖放?

在vb中如何响应拖放事件?
就是将一个或多个文件拖放到窗体上之后传回相应的信息,也就是文件的路径.
例如将文件的路径添加到列表中(只是举个例子).

Answer 1

1、首先将窗体的OLEDropMode属性设为1
2、在窗拦渣体的OLEDragDrop事件中获得文件路径埋宴，例如：弯衡银

Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
For Each file In Data.Files
s1 = s1 & file & vbCrLf
Next
MsgBox s1
End Sub