私有聲明函數OleLoadPicturePath Lib " oleaut32 . dll "(ByVal szulropath為Long，ByVal punkCaller為Long，ByVal dwReserved為Long，ByVal clrReserved為OLE_COLOR，ByRef riid為TGUID，ByRef ppvRet為IPicture)為Long
私有類型TGUID
Data1壹樣長
整數形式的數據2
整數形式的數據3
以字節表示的數據4(0至7)
結束類型
公共函數LoadPicture(ByVal strFileName作為字符串)作為圖片
迪姆·IID擔任導遊
和IID壹起
. data 1 = & amp；H7BF80980
. Data2 = & ampHBF32
. Data3 = & ampH101A
. data 4(0)= & amp；H8B
. data 4(1)= & amp；羥芐基苯並咪唑
. data 4(2)= & amp；零假設
. data 4(3)= & amp；重型防空武器
. data 4(4)= & amp；零假設
. data 4(5)= & amp；H30
. data 4(6)= & amp；HC
. data 4(7)= & amp；北陸朝日放送
以…結尾
出錯時轉到LocalErr
OleLoadPicturePath StrPtr(strFileName)，0 & amp，0 & amp，0 & amp，IID，加載圖片
退出功能
LocalErr:
設置LoadPicture = VB。加載圖片(strFileName)
呃。清楚的
結束功能
私有子命令1_Click()
圖片1。picture = load picture("/img/BD logo . gif ")
末端接頭
第二種方法:如果知道圖片的網址，可以先把圖片下載到本地，然後在Picture1中顯示:
私有聲明函數URLDownloadToFile Lib“urlmon”別名“URLDownloadToFileA”(ByVal p caller為Long，ByVal szURL為String，ByVal szFileName為String，ByVal dwReserved為Long，ByVal lpfnCB為Long)為Long
私有子命令1_Click()
URLDownloadToFile 0 & amp、"/img/bdlogo.gif "，App。路徑與路徑。" \bdlogo.gif "，0 & amp，0 & amp
圖片1。圖片= LoadPicture(App。路徑與路徑。" \bdlogo.gif ")
末端接頭
第三種方法:如果不知道圖片的網址，但是知道網頁的網址，可以用WebBrowser控件顯示網頁，然後找到需要的圖片，顯示在Picture1:
私有子命令1_Click()
Dim CtrlRange作為對象，img作為對象
設置CtrlRange = WebBrowser1。document . body . createcontrolrange
對於WebBrowser1中的每個img。文檔.圖像
如果InStr(img.src，" bdlogo ")那麽
CtrlRange。添加img
ctrl range . exec命令“復制”
圖片1。圖片=剪貼板。獲取數據
為...退出
如果…就會結束
然後
末端接頭
私有子窗體_Load()
WebBrowser1。瀏覽""
末端接頭
以上方法都可以在百度首頁顯示Logo圖片。相比較而言，第壹種方法是最好的，雖然它的代碼最多，但是它完全是由代碼實現的，不需要其他控件的幫助，也不需要中間文件。它的使用就好像互聯網上的圖片就是妳硬盤上的圖片壹樣。第二種方法代碼最簡單，但會生成硬盤文件，但如果妳恰好需要下載文件(即不僅要顯示，還要用這張圖片進行其他操作)，那麽這種方法是最好的選擇；第三種方法最復雜，需要網頁控件和剪貼板轉換。但是，如果您的軟件最初需要網頁控件，或者您希望獲得同壹網頁的多張圖片，那麽這是最佳選擇。