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

*** 作步骤1、建立一个新工程项目，凯芦蚂缺省建立窗体FORM12、添加一个列表控件（LIST1）到窗体FORM13、设置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 VariantFor Each ThisFile In Data.FilesList1.AddItem ThisFileNextEnd Sub5、保存工程项目6、运行程序。从WINDOWS EXPLORER选择一组文件，然后拖放到列表框中。被选择的文件包括其所在的全路径被添加到列表框中。这个功能还有许多其他的用途。盯埋

电脑知识网导读：添加一个列表控件（LIST1）到吵链窗体FORM1 3、设置LIST1dOLEDROPMODE属性=1 -手动 4、粘贴下面d代码到LIST1dOLEDRAGDROP事件： 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 ...

*** 作步骤1、建立一个新工程项目，缺省建立窗体FORM1

2、添加一个列表控件（LIST1）到窗体FORM1

3、设置LIST1dOLEDROPMODE属性=1 -手动

4、粘贴下面d代码到LIST1dOLEDRAGDROP事件：

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 ThisFileNextEnd Sub5、保存工程项目

6、运行程序。从WINDOWS EXPLORER选择一组文件，然后拖放到列表框中。被选择d文件包括其所在d全路径

被添加到列让雀表框中。

这个功能还有许坦碰早多其他d用途。

---