这里以我的软件“文章管理系统”为例解释一下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
解释:
1、想得到被拖放的数据之前需对被拖放的数据进行类型判断,不同类型的数据不同处理。
2、常用的数据类型主要是文本、文件列表,文件列表可以使用for each得到全部内容。
3、详细资料、数据类型列表请查阅msdn的getdata, getformat的用法。
网页上的图片拖放结果得到的是缓存中的文件地址,是文件列表类型的数据。具体情况还要靠大家自己研究。
ps:
word中对网页文件进行拖放操作可以得到图像(word应该只得到了图像的url,然后从互联网下载该图像)及html格式,这是怎么实现的呢?如果大家知道请指教。
