采用OLE实现的文件的拖放.doc

采用OLE实现的文件的拖放
用文件拖放可以使我们方便的打开程序所支持的文件，比如我们直接把一首歌曲(mp3)从资源管理器Explore中直接拖放到我们自己写的多媒体播放器上，播放器就能得到放下的文件的路径，然后自动的打开它。这也是流行软件所常用的技巧。下面介绍的小程序，采用VB6所提供的OLE拖放功能，仅用十几行代码就实现了文件拖放。

为了学习方便，提供的源码已经作了详细的中文注释，看看源码框中的代码：
'------------------------------------------
'采用OLE实现的文件的拖放
'------------------------------------------
'洪恩在线求知无限
'------------------------------------------
'程序说明：
'本例是实现文件从EXPLORE到VB应用程序拖放的又一种
'方法，与采用API函数实现的方法相比，这种方法更简
'单易懂。
'OLE拖放是可在VisualBasic应用程序中添加的最强
'大、最有用的功能之一就是在控件和控件之间、在控件
'和其它Windows应用程序之间拖动文本和图形。有了
'OLE，就可将这种功能引入到应用程序中。
'------------------------------------------

OptionExplicit

PrivateSubForm_Load()

'经过声明Picture1成为接受文件拖放的一个OLE容器
Picture1.OLEDropMode=1
EndSub

PrivateSubPicture1_OLEDragDrop(dataAsDataObject,effectAsLong,buttonAsInteger,shiftAsInteger,xAsSingle,yAsSingle)
DimiAsInteger
'检查放下的东西是不是文件名
Ifdata.GetFormat(vbCFFiles)=TrueThen

DimsFileName$

'只读取第一条记录的信息
sFileName=data.Files(1)

'如果不是图片文件则转向错误处理
OnErrorGoToinvalidPicture

'依次读取各条记录，并把文件名添加在列表框中
Fori=1Todata.Files.Count
List1.AddItemdata.Files(i)
Nexti

'将图片显示在图片框中
Picture1.Picture=LoadPicture(sFileName)
EndIf

ExitSub

invalidPicture:

'显示错误信息
DisplayPicture1Message

EndSub
PrivateSubDisplayPicture1Message()

'清除图片框中的图片
Picture1.Picture=LoadPicture()

ConstMsgAsString="InvalidPictureFormat!"

'在图片框中显示错误信息，这个用法很少见
Picture1.CurrentX=(Picture1.ScaleWidth\2)-(Picture1.TextWidth(Msg)\2)
Picture1.CurrentY=(Picture1.ScaleHeight\2)-(Picture1.TextHeight(Msg)\2)
Picture1.PrintMsg
EndSub

'当鼠标拖着东西移过图片框时
PrivateSubPicture1_OLEDragOver(dataAsDataObject,effectAsLong,buttonAsInteger,shiftAsInteger,xAsSingle,yAsSingle,StateAsInteger)

'检查移过图片框的是不是文件（象“回收站”就不是文件）
Ifdata.GetFormat(vbCFFiles)Then

'显示可以放下的图标，是带小加号的那种
effect=vbDropEffectCopyAndeffect
Else

'否则显示不可放下的图标，是圆圈加斜线那种
effect=vbDropEffectNone
EndIf

EndSub

'--------------------------OLE拖放简介-------------------------------------------------
'可在VisualBasic应用程序中添加的最强大、最有用的功能之一就是在控件和控件之
'间、在控件和其它Windows应用程序之间拖动文本和图形。有了OLE，就可将这种功能
'引入到应用程序中。
'使用OLE拖放时，并不是把一