vb代码

sunjay117 2012-09-29 07:59:40

vb不熟悉，用XMLHTTP 如何获取远程图片并显示在picturebox上

...全文

151 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

xzh132 2012-10-15

打赏
举报

不好意思，我是新手

Treenewbee 2012-10-04

打赏
举报

Private Sub Command1_Click()

    Dim a As New xmlHttp, v() As Byte

    a.Open "GET", "http://www.baidu.com/img/baidu_logo.gif", False

    a.send

    While a.readyState <> 4

        DoEvents

    Wend

    v = a.responseBody

    Open "c:\1.jpg" For Binary As #1

    Put #1, , v

    Close #1

    Picture1.Picture = LoadPicture("c:\1.jpg")

End Sub

sunjay117 2012-09-30

打赏
举报

代码怎么写，网上找来的代码好使
Private Sub Command1_Click()
Dim a As New xmlHttp
a.open "GET", "http://www.baidu.com/img/baidu_logo.gif", False
a.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727)"
a.send

Do While a.readyState <> 4
DoEvents
Loop

Open "c:\1.gif" For Binary As #1
Put #1, , a.responseBody
Close #1

End Sub
能不能帮忙给修改一下