怎样在VB5中使用OLEDRAGDROP事件从WindowsExplorer中拖放文件

本文将介绍怎样在你的VB5应用程序中使用OLEDRAGDROP事件从WINDOWSEXPLORER拖放文件。以往的做法要仔细区分和捕捉事件的特定消息，而VB5则通过OLEDRAGDROP事件提供了非常相似的功能。
　　
　　操作步骤
　　1、建立一个新工程项目，缺省建立窗体FORM1
　　2、添加一个列表控件（LIST1）到窗体FORM1
　　3、设置LIST1的OLEDROPMODE属性=1-手动
　　4、粘贴下面的代码到LIST1的OLEDRAGDROP事件：
　　PrivateSubList1_OLEDragDrop(DataAsDataObject,EffectAsLong,ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
　　DimThisFileAsVariant
　　
　　ForEachThisFileInData.Files
　　List1.AddItemThisFile
　　Next
　　EndSub
　　5、保存工程项目
　　6、运行程序。从WINDOWSEXPLORER选择一组文件，然后拖放到列表框中。被选择的文件包括其所在的全路径
　　被添加到列表框中。
　　这个功能还有许多其他的用途。RABIT软件公司的SPRITEANIMATOR使用这个事件获取拖放到应用中的图象。->