【VB6】文件拖拽技術

關鍵詞：VB，文件，拖拽

接下來介紹的技術可以用於文件拖拽。

文件拖拽的例子很多，比如你用QQ的時候，將文件拖拽到聊天窗口就進入了文件傳輸的窗口

現在開始：

接收對象

首先，我們這次讓ListBox接受文件的拖入

1.配置ListBox

屬性	值
OLEDragMode	0 - Manual
OLEDropMode	1 - Manual

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中顯示的是文件的路徑。

聰明如你，相信會知道如何使用了吧。

舉一反三應該易如反掌了吧。