picturebox加载图片时，提示无效图片

Question

以下是代码：（在网页下载图片，并在控件上显示，下载可以实现，但不能在控件上显示，但用画图程序可以打开下载的图片）
Private Sub Command1_Click()
     Dim b() As Byte
    x = FreeFile
    Inet1.URL = "http://cgbt.cn/forums/petseccode.php?t=0.1225644810"
    b() = Inet1.OpenURL(, icByteArray)
    Open "c:\2.gif" For Binary Access Write As #x
    Put #x, , b()
    Close #x
    Picture1.Picture = LoadPicture("C:\2.gif")       '此语句提示：实时错误 481 无效图片（但图片已经下此时载下来了）
    Picture2.Picture = LoadPicture("C:\Documents and Settings\Administrator\桌面\2.gif")  '我把图片另保存在桌面上却可以显示
End Sub
谢谢指教

Answer 1

"http://cgbt.cn/forums/petseccode.php?t=0.1225644810" 指向的就不是一个图片地址,
 Open "c:\2.gif" For Binary Access Write As #x 写出的就不是一个有效的图片文件

Answer 2

试一试下面的代码你就明白了
Private Sub Command1_Click()
    Dim b() As Byte
    x = FreeFile
    Inet1.URL = "http://www.xinhuanet.com/xinsrc_482110503135025008551.jpg"
    b() = Inet1.OpenURL(, icByteArray)
    Open "c:\2.gif" For Binary Access Write As #x
    Put #x, , b()
    Close #x
    Picture1.Picture = LoadPicture("C:\2.gif")      '此语句提示：实时错误 481 无效图片（但图片已经下此时载下来了）
    Picture2.Picture = LoadPicture("C:\2.gif")  '我把图片另保存在桌面上却可以显示
End Sub

Answer 3

楼主叙述上有些含糊。“我把图片另保存在桌面上却可以显示”，这个说的意思是什么。是指把编程保存的2.GIF改变个位置，还是把通过URL在浏览器中显示的图片用浏览器的保存功能保存到桌面？ 如果是后者，就没法比较了。既然楼主说保存的2.gif用画图程序可以查看，那么最好先试一下下载BMP和JPG的图片是否正常。如果能正常载入PIC控件的话，就是GIF的格式，对于动画的GIF，可能会有问题（大多正常情况下会显示第一帧），最好根据扩展名的不同，对GIF使用GIF控件。如果BMP或JPG文件现象一样，会令人费解些，可以尝试在LOADPICTURE前延时一下。我这不方便作实验了。

Answer 4

我改了下，下面的代码可以正确运行
Private Sub Command1_Click() 
    Dim b() As Byte,x As Integer 
    Inet1.URL = "http://avatar.profile.csdn.net/A/9/7/2_theforever.jpg" 
    b() = Inet1.OpenURL(, icByteArray)
    if ubound(b)>0 then 
        x = FreeFile 
        Open "c:\2.gif" For Binary Access Write As #x 
        Put #x, , b() 
        Close #x 
        Picture1.Picture = LoadPicture("C:\2.gif")
     Else
        Picture1.Picture = LoadPicture("C:\目标不存在.gif")
    End if
End Sub 

Answer 5

http://cgbt.cn/forums/petseccode.php?t=0.1225644810
该链接指向：
403 - Forbidden