關鍵詞: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中顯示的是文件的路徑。
聰明如你,相信會知道如何使用了吧。
舉一反三應該易如反掌了吧。