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

采用OLE实现的文件的拖放 用文件拖放可以使我们方便的打开程序所支持的文件，比如我们直接把一首歌曲(mp3)从资源管理器Explore中直接拖放到我们自己写的多媒体播放器上，播放器就能得到放下的文件的路径，然后自动的打开它。这也是流行软件所常用的技巧。下面介绍的小程序，采用VB6所提供的OLE拖放功能，仅用十几行代码就实现了文件拖放。 　　为了学习方便，提供的源码已经作了详细的中文注释，看看源码框中的代码： ------------------------------------------ 采用OLE实现的文件的拖放 ------------------------------------------ 洪恩在线 求知无限 ------------------------------------------ 程序说明： 本例是实现文件从EXPLORE到VB应用程序拖放的又一种 方法，与采用API函数实现的方法相比，这种方法更简 单易懂。 OLE拖放是可在 Visual Basic 应用程序中添加的最强 大、最有用的功能之一就是在控件和控件之间、在控件 和其它 Windows 应用程序之间拖动文本和图形。有了 OLE，就可将这种功能引入到应用程序中。 ------------------------------------------ Option Explicit Private Sub Form_Load() 经过声明Picture1成为接受文件拖放的一个OLE容器 Picture1.OLEDropMode = 1 End Sub Private Sub Picture1_OLEDragDrop(data As DataObject, effect As Long, button As Integer, shift As Integer, x As Single, y As Single) Dim i As Integer 检查放下的东西是不是文件名 If data.GetFormat(vbCFFiles) = True Then Dim sFileName$ 只读取第一条记录的信息 sFileName = data.Files(1) 如果不是图片文件则转向错误处理 On Error GoTo invalidPicture 依次读取各条记录，并把文件名添加在列表框中 For i = 1 To data.Files.Count List1.AddItem data.Files(i) Next i 将图片显示在图片框中 Picture1.Picture = LoadPicture(sFileName) End If Exit Sub invalidPicture: 显示错误信息 DisplayPicture1Message End Sub Private Sub DisplayPicture1Message() 清除图片框中的图片 Picture1.Picture = LoadPicture() Const Msg As String = Invalid Picture Format! 在图片框中显示错误信息，这个用法很少见 Picture1.CurrentX = (Picture1.ScaleWidth \ 2) - (Picture1.TextWidth(Msg) \ 2) Picture1.CurrentY = (Picture1.ScaleHeight \ 2) - (Picture1.TextHeight(Msg) \ 2) Picture1.Print Msg End Sub 当鼠标拖着东西移过图片框时 Private Sub Picture1_OLEDragOver(data As DataObject, effect As Long, button As Integer, shift As Integer, x As Single, y As Single, State As Integer) 检查移过图片框的是不是文件（象“回收站”就不是文件） If data.GetFormat(vbCFFiles) Then 显示可以放下的图标，是带小加号的那种 effect = vbDropEffectCopy And effect Else 否则显示不可