Private Sub Web1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
'待網頁加載完畢后，再執行以下陳述句：
Dim nPath As String, E, nRange
nPath = App.Path & "\web圖示\"
Web1.Silent = True '關閉互動 禁止腳本錯誤
Dim s As String
For Each E In Web1.Document.All
s = E.tagName
If E.tagName = "IMG" Then
Set nRange = Web1.Document.body.createControlRange()
nRange.Add E
Clipboard.Clear
nRange.execCommand "Copy" '復制到剪貼板
SavePicture Clipboard.GetData, nPath & "favicon.bmp" '保存到硬碟
End If
Next
End Sub
Private Sub Form_Load()
Web1.Navigate2 "http://google.com/favicon.ico"
End Sub
想用這個方法去獲取網頁的圖示，但除錯的時候，顯示SavePicture Clipboard.GetData, nPath & "favicon.bmp" '保存到硬碟
錯誤380，無效屬性值。
如果不用這個方法，可以用什么方法根據網頁的url獲取網頁的圖示？
uj5u.com熱心網友回復：
沒必要，直接用inet控制元件下載favicon.ico就可以了。uj5u.com熱心網友回復：
可以直接查找本地的快取檔案并復制到自定義目錄。。。。uj5u.com熱心網友回復：
能不能提供一下參考代碼，在網上找的代碼，下載了之后不是以.ico格式，就算換了后綴名也不能使用。
我想用webborwser 下載的原因是，我想在應用程式中用webbrowser打開一個網址，就顯示相應的圖示。
uj5u.com熱心網友回復：
可以直接顯示在線圖片嘛，或者用XMLHTTPuj5u.com熱心網友回復：
嘗試以inet下載favicon.ico，
Private Sub Command1_Click()
Dim b() As Byte
Dim strURL As String
strURL = "http://www.baidu.com/favicon.ico"
b() = Inet2.OpenURL(strURL, icByteArray)
Open "c:\logo.ico" For Binary Access Write As #1
Put #1, , b()
Close #1
Picture1.Picture = LoadPicture("c:\logo.ico")
End Sub
但又出現了些問題：
當strURL=“http://www.google.com/favicon.ico”時，在本地目錄是可以看到下載完的圖片，但放到picture時提示無效圖片。當strURL=“http://www.baidu.com/favicon.ico”或者strURL=“http://www.weibo.com/favicon.ico”時，可以裝載到picture里面，這是什么道理？？
uj5u.com熱心網友回復：
請問有人能幫我看一下么？uj5u.com熱心網友回復：
VB中ICON屬性應用的問題很多朋友在使用VB編程時，在網上找到的ico圖示發現在VB中無法使用，會提示錯誤
這不是VB的問題，而是圖片本身的問題，VB要求ico的一系列圖片中，必須包含16*16,256色圖示，否則就提示錯誤。
大家可以使用IconCool Editor漢化版 來解決，先載入圖片，在調整為16*16,256色，即可。
建議做成雙格式的，即16*16,256色 和 32*32 ，32色深都有比較好，但本人還沒找出方法。
來自百度。
你下載的沒有問題，但是vb顯示。。。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/122896.html
標籤：網絡編程