使用VB實現OLE拖放功能

2024-07-21 02:20:52

字體：大中小

來源：轉載

供稿：網友

這里以我的軟件“文章管理系統”為例解釋一下ole拖放在vb中的應用：
在窗體中添加一個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:
word中對網頁文件進行拖放操作可以得到圖像（word應該只得到了圖像的url，然后從互聯網下載該圖像）及html格式，這是怎么實現的呢？如果大家知道請指教。

上一篇：VB6如何讓程序開機就自動啟動

下一篇：在VB中實現多線程!