操作步骤
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使用这个事件获取拖放到应用中的图象。->
文章整理:站长天空 网址:http://www.z6688.com/
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!




