在窗體中新增乙個image控制項，在它的imgdrop_oledragdrop過程中新增如下**：
private sub imgdrop_oledragdrop(data as dataobject, effect as long, button as integer, shift as integer, x as single, y as single)
dim strtmp
if data.getformat(15) then
dim strfilename as string
strfilename = getfilename(data.files(1))
............
end if
if data.getformat(1) then
dim strcontent as string
strcontent=data.getdata(1)
.................
end if
end sub
解釋：
１、想得到被拖放的資料之前需對被拖放的資料進行型別判斷，不同型別的資料不同處理。
２、常用的資料型別主要是文字、檔案列表，檔案列表可以使用for each得到全部內容。
３、詳細資料、資料型別列表請查閱msdn的getdata, getformat的用法。
ps:
VB的檔案拖放實現
vb中，很多控制項都可以實現拖放功能。拖放功能有內部控制項間的拖放和由程式外部對程式本身的拖放。檔案拖放應該使用oledragdrop事件，而不是dragdrop事件。oledragdrop事件的語法如下 private subobject oledragdrop data as dataobjec...
flex實現拖放功能
import mx.core.bitmapasset import mx.core.dragsource import mx.events.dragevent import mx.managers.dragmanager private var xoffset number private var ...
用 QT實現拖放（drag drop）功能
qt的 qdrag 和 qdrop功能在qt的 puzzle 示例中有介紹。但是那個介紹是以qlistwidget為基礎的。本文以qwidget為基礎，介紹如何實現拖放。拖放可以用qstring作為資訊載體，也可以使用html等型別。本文採用qbytearray。qbytearray允許程式設計師使...