请问如何实现:鼠标拖动文件到窗体中，此文件路径会自动加入listbox中？

[michael_jian]

[siyuan79]

我也想知道啊！
如果你会的话，可以告诉我吗？

[gameboy999]

放上一个listbox
然后设置属性
oledragmode = automatic
oledropmode = manual

Private Sub List1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
on error goto errorhandle
dim i as integer
i=1
do
List1.AddItem Data.Files(i)
i=i+1
loop
exit sub
errorhandle: 'do nothing
End Sub

[gameboy999]

以上代码可以获得多个文件名称

注意如果把数组的下标用Option改为了0,则要相应改动此代码