Question

VB获取文件路径

将文件直接拉入窗体中即获得此文件路径。
请各位大侠多加注释，尽量简单
text 也可以成功吗？

Answer 1

先设置文本框的OLEDropMode = 1
然后参考以下代码：
Private Sub Label2_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
Label2.Caption = Data.Files(1)
End Sub

Answer 2

在窗体中添加一个list1
然后先设置窗体的OLEDropMode为1-Manual
然后在代码中添加
Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim thisfile As Variant

For Each thisfile In Data.Files
List1.AddItem thisfile
Next

End Sub
当你把文件拖到窗体上放下的时候，list1里就会添加一个文件路径

Answer 3

'先添加个 Text1
Private Sub Form_Load()
OLEDropMode = 1
End Sub
Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim thisfile As Variant
For Each thisfile In Data.Files

Text1.Text = thisfile

Next
End Sub