VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 怎样在VB5中使用OLEDRAGDROP 事件从WINDOWS EXPLORER中拖放文件
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:7840, 日期:2001-06-05
怎样在VB5中使用OLEDRAGDROP 事件从WINDOWS EXPLORER中拖放文件

关键词:Visual Basic



    本文将介绍怎样在你的VB5应用程序中使用OLEDRAGDROP 事件从WINDOWS EXPLORER拖放文件。以往的做法
要仔细区分和捕捉事件的特定消息,而VB5则通过OLEDRAGDROP事件提供了非常相似的功能。

操作步骤
1、建立一个新工程项目,缺省建立窗体FORM1
2、添加一个列表控件(LIST1)到窗体FORM1
3、设置LIST1的OLEDROPMODE属性=1 -手动
4、粘贴下面的代码到LIST1的OLEDRAGDROP事件:
Private Sub List1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim ThisFile As Variant
    
    For Each ThisFile In Data.Files
        List1.AddItem ThisFile
    Next
End Sub
5、保存工程项目
6、运行程序。从WINDOWS EXPLORER选择一组文件,然后拖放到列表框中。被选择的文件包括其所在的全路径
   被添加到列表框中。
   这个功能还有许多其他的用途。RABIT软件公司的SPRITE ANIMATOR使用这个事件获取拖放到应用中的图象。