【VB源码】直接显示网络上的图片 _ 资源

查看: 3118\|回复: 10	【VB源码】直接显示网络上的图片 [复制链接]

发送短消息 UID 211464 帖子 21164 精华 13 鲜花 258 朵铜币 47817 个银币 60 个性别在线时间 263800 注册时间 2008-12-23 最后登录 2022-11-28 1094599314 1094599314 查看公共资料搜索主题搜索帖子兄弟工程师01 组别版主 UID211464 帖子21164 精华13 鲜花258 朵铜币47817 个银币60 个在线时间263800 注册时间2008-12-23 按键精灵开发者4级可通过提升认证等级来升级勋章：rz.anjian.com 兔年勋章兔年纪念勋章论坛MM 按键论坛女性用户勋章小红帽对论坛提出良好建议（可向管理员申请）学有所成学有所成勋章，新手步入按键学堂的第一枚勋章按键元老资深按键用户的尊贵荣誉勋章管理人员按键论坛的管理团队专属勋章	1^# 字体大小: t T 发表于 2010-01-05 14:40 \| \|只看楼主直接显示网络上的图片在窗体上放一个按钮和image控件 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 Private Type TGUID Data1 As Long Data2 As Integer Data3 As Integer Data4(0 To 7) As Byte End Type '加载函数 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 DoEvents 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 Private Sub Command1_Click() Set Image1.Picture = LoadPicture("http://www.google.cn/intl/zh-CN/images/logo_cn.gif") End Sub 复制代码已有1评分我要评分查看所有评分
	点赞【按键精灵手机版】按键精灵安卓版v3.0发布啦~体验送现金红包哦！！【按键精灵2014.03.16412版】这是有史以来最稳定的版本，不信你用一个？ .

	回顶部

上一主题| 下一主题

【VB源码】直接显示网络上的图片 [复制链接]