关键词：VB，文件，拖拽

接下来介绍的技术可以用于文件拖拽。

文件拖拽的例子很多，比如你用QQ的时候，将文件拖拽到聊天窗口就进入了文件传输的窗口

现在开始：

接收对象

首先，我们这次让ListBox接受文件的拖入

1.配置ListBox

2.创建事件处理

Private Sub List1_OLEDragDrop(Data As DataObject,Effect As Long,Button As Integer,Shift As Integer,X As Single,Y As Single)
    List1.AddItem Data.Files(1)
End Sub

这样，我们就完成了文件的拖拽，ListBox中显示的是文件的路径。

聪明如你，相信会知道如何使用了吧。

举一反三应该易如反掌了吧。