Picture控件问题，高手进

Question

现在有一个Picture控件，命名为SavePic
程序如下
SavePic.Cls
SavePic.Picture = LoadPicture("E:\tu\tu\a01pai_1xiao.jpg")
SavePic.Refresh
问题：
SavePic.Picture=LoadPicture("http://www.xxx.com.cn/a01pai_1xiao.jpg")
这样子是不能调用的，为什么有没有 办法解决，程序一加载，Picture控件就加载http://www.xxx.com.cn/a01pai_1xiao.jpg这张图片，还望指教一二

Answer 1

先把文件down到本地client,再把path传给picture控件.

Answer 2

去学HTTP协议
用WinSock连上服务器
再请求数据

Answer 3

'使用XMLHTTP对象下载，使用ADODB.Stream对象写文件的方法
'(不需在VB中添加引用)
Option ExplicitPrivate Function XMLGetURL(URL As String) As Byte()
On Error GoTo errHandler
Dim XMLObj As Object    Set XMLObj = CreateObject("Microsoft.XMLHTTP")
    XMLObj.open "GET", URL, False
    XMLObj.Send
    If XMLObj.readyState <> 4 Then
        MsgBox "下载失败!"
        Exit Function
    End If
    XMLGetURL = XMLObj.responseBody
    Set XMLObj = Nothing
    Exit Function
errHandler:
    MsgBox Err.Description, vbInformation, "错误"
End FunctionFunction SaveImage(URL As String, toFile As String)
Dim objStream As Object
Dim ImgData() As Byte
    ImgData = XMLGetURL(URL)
    
    Set objStream = CreateObject("ADODB.Stream")
    objStream.Type = 1
    objStream.open
    objStream.Write ImgData
    objStream.SaveToFile toFile, 2
    objStream.Close
    Set objStream = Nothing
End Function
Private Function GetFileName(URL As String) As String
    GetFileName = Mid(URL, InStrRev(URL, "/") + 1)
End FunctionPrivate Sub Command1_Click()
Dim URL As String
    URL = "http://expert.csdn.net/images/csdn.gif"
    SaveImage URL, "c:\" & GetFileName(URL)
    Picture1.Picture = LoadPicture("c:\" & GetFileName(URL))
End Sub

Answer 4

用WebBrowser控件
写一个网页来显示图片
再用WebBrowser控件显示网页不就行了?

Answer 5

To griefforyou(为你伤心(http://book.4yt.net　四月天言情小说书库)):
   我执行了你的例子，但在执行下列语句时出错：
   XMLObj.Send   错误信息是：Err.Description： 拒绝访问。不知是什么原因，请帮忙解释一下。

Answer 6

WebBrowser.Navigate "http://www.csdn.net/news/images/0606big.jpg"

Answer 7

关键是我要在
http://www.csdn.net/news/images/0606big.jpg
这张图片上执行print操作

Answer 8

可能是我没有说清楚的原因
我是他它做成控件，放到服务器，
然后客户端执行，就好像类似于这种东东http://www.brandworks.com.cn/ains/2004-12-2015145276305.html?bbname=123456789
(注:123456789可以随便书写)

Answer 9

那只能把图象下到本地再用pictureBox显示了
可以用winsock控件把图片传过来