【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 > 0 Then
      For i = 1 To Data.Files.Count
        得到拖放的文件名 = Data.Files.Item(i)
        '其它的业务代码
      Next i
    End If
  End If
End Sub

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

 

转载于:https://www.cnblogs.com/sunsoftresearch/p/5776767.html