vb窗体上如何调用网上的图片？

2025-06-24 02:36:23

推荐回答（1个）

回答1：

'用来下载文件的API函数
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Private Sub Form_Load()

'将图片下载到本地硬盘
URLDownloadToFile 0, "http://www.baidu.com/img/baidu_logo.gif", "c:\temp.jpg", 0, 0

'设置image控件的picture属性显示该图片
Image1.Picture = LoadPicture("c:\temp.jpg")
'删除临时文件
Kill "c:\temp.jpg"
End Sub