如何做文件的拖曳？

Question

我的程序有个picturebox，他显示的是c:\1.bmp，我托动这个图片到画图里（或别的可以打开图片的软件），画图就打开c:\1.bmp，就好像我从资源管理器里托动一样这个怎么实现

Answer 1

俺写一个例子给你吧！[email protected]

Answer 2

唉，不用发邮件了！在窗体添加一个PictureBoxOption ExplicitPrivate Sub Form_Load()
    With Me.Picture1
        .OLEDragMode = 1
        .OLEDropMode = 1
    End With
End SubPrivate Sub Picture1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
    On Error GoTo Err1
    Dim strT As String
    
    If Data.GetFormat(vbCFFiles) = True Then
        strT = Data.Files(1)
        Set Me.Picture1.Picture = LoadPicture(strT)
    End If
Err1:
End Sub

Answer 3

你的方法正好和我需要的相反，我需要的是从自己的程序里向外面托放，按照你的方法，我试验了：
Private Sub Picture1_OLEStartDrag(Data As DataObject, AllowedEffects As Long)
    On Error GoTo Err1
    Dim strT As String
    
       Data.SetData "c:\back.bmp", vbCFFiles
Err1:
End Sub
但是什么反应也没有耶？
（该贴可以加分）