【VB6】VB6实现拖拽

首先，设置OLEDropMode

OLEDropMode = 1

然后插入代码

Private Sub 控件名_OLEStartDrag(Data As DataObject, AllowedEffects As Long)

  AllowedEffects = vbDropEffectMove

End Sub

然后插入事件处理的代码

Private Sub 控件名_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)

  Dim i As Long

  If Data.GetFormat(vbCFText) Then

    得到拖放的字符串 = Data.GetData(vbCFText)

  ElseIf Data.GetFormat(vbCFFiles) Then

    If Data.Files.Count >  Then

      For i =  To Data.Files.Count

        得到拖放的文件名 = Data.Files.Item(i)

        '其它的业务代码

      Next i

    End If

  End If

End Sub

拖放的信息都获取到了，接下来就做你爱做的事情吧。