注册 登录
编程论坛 VB6论坛

VB6 求助如何在窗体内插入一个网盘里的JPG图片!

常州屠夫 发布于 2015-04-07 17:47, 1536 次点击
各位大神,我是一个初学者,一边自己摸着一边百度,现在想在以下这个窗体上实现一个功能:
我把这个小软件给几个公司使用,但是我想在右下角的小位置插入一个可以访问网盘图片的窗口,这样我只需要更换网盘里的相同名称图片,就可以实现他们客户端的图片更换,这是否可以实现~~HOHO,新手~可能这个想法有点天真!
4 回复
#2
常州屠夫2015-04-07 17:47
呃,上传不了附件!
#3
renxiaoyao362015-04-07 20:50
不大可能,有以下几个问题:
1.网盘的存储方式和联系方式届未知,无法按照网盘的信息传送方式传送。
2.网盘服务器地址未知,无法传送讯息至指定的服务器。
3.网上下载图片在VB中很难实现。
#4
风吹过b2015-04-07 21:48
有外链,就直接用webbrows显示,没有的话,那就很难,建议找个免费空间做这个事。
#5
lianyicq2015-04-08 08:59
如果图片可以用http://...显示,就可以用
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
API下载。下载保存为一个临时文件,再在form中显示出来。
比如:
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 Const ERROR_SUCCESS As Long = 0
Private Const BINDF_GETNEWESTVERSION As Long = &H10
Private Const INTERNET_FLAG_RELOAD As Long = &H80000000

Public Function DownloadFile(sSourceUrl As String, sLocalFile As String) As Boolean

   DownloadFile = URLDownloadToFile(0&, sSourceUrl, sLocalFile, BINDF_GETNEWESTVERSION, 0&) = ERROR_SUCCESS

End Function


Private Sub Form_Load()
Call DownloadFile("http://www.baidu.com/img/bd_logo1.png", "c:\test1.png")
Form1.Caption = "Finish!"
End Sub
1