先用INet控件下载到临时文件中,然后...添加Microsoft Internet tranfer control 控件 Private Sub Command1_Click()
Dim b() As Byte Dim strURL As String strURL = "http://www.csdn.net/images/homeimage/csdn.gif" b() = Inet2.OpenURL(strURL, icByteArray) Open "c:\csdn.gif" For Binary Access _ Write As #1 Put #1, , b() Close #1 Picture1.Picture = LoadPicture("c:\csdn.gif") End Sub
Private Sub Command1_Click()
Dim b() As Byte
Dim strURL As String strURL = "http://www.csdn.net/images/homeimage/csdn.gif" b() = Inet2.OpenURL(strURL, icByteArray) Open "c:\csdn.gif" For Binary Access _
Write As #1
Put #1, , b()
Close #1 Picture1.Picture = LoadPicture("c:\csdn.gif")
End Sub
WebBrowser1.Navigate http://www.csdn.net/images/homeimage/csdn.gif