vb中，很多控制項都可以實現拖放功能。拖放功能有內部控制項間的拖放和由程式外部對程式本身的拖放。
檔案拖放應該使用oledragdrop事件，而不是dragdrop事件。
oledragdrop事件的語法如下：
private subobject
_oledragdrop(data
as dataobject, effect
as long, button
as integer, shift
as integer, x
as single, y
as single)
以form為例，實現方法如下：
建立乙個窗體form1，將oledragmode屬性設定為 1 - manual。
在form1的oledragdrop事件**如下例：
private sub form_oledragdrop(data as dataobject, effect as long, button as integer, shift as integer, x as single, y as single)
dim f as variant '注意物件型別
for each f in data.files
debug.print f
next f
end sub
然後執行，拖放檔案到程式窗體，即可看到立即視窗列印的檔案路徑。
也可以使用
debug.print data.files(1)
來顯示第乙個檔案的路徑。
注意，files集合是從(1)開始，而不是(0)。
使用VB實現OLE拖放功能
在窗體中新增乙個image控制項，在它的imgdrop oledragdrop過程中新增如下 private sub imgdrop oledragdrop data as dataobject,effect as long,button as integer,shift as integer,x ...
VB控制項間的拖放
新建工程,放置控制項picture1,text1,text2,複製下面的 執行 text1和text2可以互相拖放,也可以將picture1拖放給text1,text2.private subform load picture1.oledragmode 1 text1.oledropmode 1 t...
VC實現檔案拖放
dragqueryfile 原 型 為 uint dragqueryfile hdrop hdrop,uint ifile,lptstr lpszfile,uint cch 其 中hdrop 是 指 向 拖 動 文 件 結 構 的 句 柄 ifile 是 以0 開 始 的 被 拖 動 文 件 的 序...