使用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中实现多线程!