vb制作的播放器怎么实现把音乐文件直接拖动到播放器上就开始播放?

Option Explicit

Private Sub Form_Load()
Me.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 I As Long
On Error Resume Next
For I = 1 To Data.Files.Count
MsgBox Data.Files(I)
Next
End Sub
你运行一下这段代码，看看有什么效果，应该对你有帮助
摘自：云霞散人吧