vb编程的拖拽问题。。

来源：百度知道 编辑：UC知道 时间：2024/09/28 09:07:20
用vb编了一个程序，窗体上有一个picture box，在windows文件夹里拉一个图片到picture box中，图像框能显示图片，这个步骤已经做好了。。现在求大家帮忙的是这个过程的逆过程，就是点图像框的图片往任意文件夹拉，能在这个文件夹里生成一个图片文件。请大家给个思路，谢谢。

Private Sub Form_Load()
Set Picture1.Picture = Me.Icon
Picture1.OLEDragMode = 1
End Sub

Private Sub Picture1_OLEStartDrag(Data As DataObject, AllowedEffects As Long)
Dim s As String
s = "C:\a.bmp"
SavePicture Picture1.Picture, s
Data.Files.Add s
Data.SetData , vbCFFiles
End Sub