问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

VB中如何提取网页中的图片

发布网友 发布时间:2022-04-21 20:51

我来回答

1个回答

热心网友 时间:2023-08-30 13:03

'//放在form的通用处.
Private Type TGUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(0 To 7) As Byte
End Type

'// 用来加载Internet上的图片
Private Declare Function OleLoadPicturePath Lib "oleaut32.dll" (ByVal szURLorPath As Long, ByVal punkCaller As Long, ByVal dwReserved As Long, ByVal clrReserved As OLE_COLOR, ByRef riid As TGUID, ByRef ppvRet As IPicture) As Long

'// 从Internet上加载图片
Public Function LoadPicture(ByVal strFileName As String) As Picture
Dim IID As TGUID
With IID
.Data1 = &H7BF80980
.Data2 = &HBF32
.Data3 = &H101A
.Data4(0) = &H8B
.Data4(1) = &HBB
.Data4(2) = &H0
.Data4(3) = &HAA
.Data4(4) = &H0
.Data4(5) = &H30
.Data4(6) = &HC
.Data4(7) = &HAB
End With

On Error GoTo LocalErr

OleLoadPicturePath StrPtr(strFileName), 0&, 0&, 0&, IID, LoadPicture
Exit Function
LocalErr:
Set LoadPicture = VB.LoadPicture(strFileName)
Err.Clear
End Function

用法与vb的loadpicture一样.
image.picture=loadpicture("https://gss0.bdstatic.com/70cFsjip0QIZ8tyhnq/img/logo-.gif")
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
有类似xxxholic和恐怖宠物店的漫画吗 沂水滑雪场怎么走 沂水天然地下画廊景区交通指南 m果实能力 脑血管造影适应症 重仓大盘蓝筹股的基金,或加指数基金? 文言文 理穷言他 有托其妻子于其友而之楚游者的有是什么意思 有托其妻子于其友而之楚... 猫吃了毒老鼠,吐白沫,惊叫,走不稳 内存对手机性能有多重要 想在网上买笔记本电脑,需要问客服什么问题? 如何提取一个网页所有图片URL? 在网上购买笔记本电脑该怎么挑选 怎么提取网页中的GIF图片 在网上买电脑如何挑选? 如何提取网页中的大图 如何使用arduino提取网页中的图片并显示在自己的网... 如何提取一个网页上所有的图片 艾灸时产生的艾烟,对人体究竟有没有伤害? 如何提取网站动画中的图片 艾草燃烧的味道用什么能除去 哪些方法有助于刚装修完的房间散异味? 如何从网页上获取图片 生活健康小知识 家里人烧了一样东西来熏蚊子(不确定是不是艾叶)... 后置摄像头一个和三个的区别 2345安全卫士怎么卸载不了啊? 怎么抓取网页上的图片 艾叶点着后味道很大,如何散去? 这个网页的图片怎么提取出来?请告诉我方法 如何在网上购买笔记本? 网上买电脑最好在哪个网站买呢 怎么在淘宝网上买笔记本电脑? 在网上买笔记本电脑 在哪个网站买比较可靠。 买笔记本是在实体店买还是在网上买好? 网上怎样购买怎样联想笔记本电脑? 网上买电脑需要注意什么 网上怎么买自己配置的笔记本电脑参数 搜狗输入法下载 搜狗输入法官方下载 笔记本电脑采购方法? 搜狗输入法怎样设置从官网上下的皮肤 在哪里下载搜狗输入法 安装最新搜狗拼音输入法官方 搜狗输入法官方官网下... 搜狗输入法去哪个网站下载 搜狗输入法在哪个网站下载吖? 搜狗输入法最新Mac版安装后怎么启动? 搜狗拼音输入法2011官方下载 搜狗输入法官方皮肤下载后保存到什么位置,如何拷贝 在计算机领域中通常用MIPS来描述 QQ支付提示余额支付超过1000,提示绑定银行卡,但...