利用VB設計瀏覽器

曠　強

　　使用VB5附帶的WebBrowser控件，可以非常簡單地設計出一個實用的瀏覽器。

　　首先，加載“Microsoft Internet Controls”和“Microsoft Windows Controls”控件。然后，設計好界面。

　　在Web瀏覽器里定義URL

　　現在，已經建立了瀏覽器里所需的一些控件，怎么讓用戶導航呢？

　　我們可使用WebBrowser控件的Navigate方法。接下來看一看這種方法。例如：Web瀏覽器首次加載時，可以通過這種方法去導航Microsoft Web頁(注意在Intenet Explorroe可定義帶或不帶“HTTP：//”)：

　　 private sub form_load()

　　 webbrowser1.navigate

　　″www.microsoft.com″

　　 …

　　 end sub

　　當然也可以使用戶能夠導航新的URL，這通常使用組合框Combo1。首先通過顯示當前的URL來啟動Combo1工作將其加載到組合框的下拉列表中：

　　 private sub form_load()

　　 webbrowser1.navigate″www.microsoft.com″

　　 combo1.text=″www.microsoft.com″

　　 combo1.AddItedm combo1.text

　　 end sub

　　用戶可以從組合框下拉列表里選擇過去的URLS ，當通過這種方法選擇了一個URL時，相應的Click事件就產生了，用這種方法能夠導航最新選擇的URL：

　　 private sub combo1_load()

　　 webbrowser1.navigate combo1.text

　　 end sub

　　另外，用戶可以在組合框里定義一個新的URL 并按Enter鍵，正如他們能夠在商業瀏覽器里所作的一樣。當按下Enter鍵時，就可以直接從Keypress事件處理器中簡單地調用Combo1—Click事件處理器導航到這個新的URL：

　　 private sub combo1_keypress(keyascii as integer)

　　 if keyascii=vbkeyreturn then

　　 combo1—click

　　 end if

　　 end sub

　　最后，當下載過程結束時，WebBrowse控件激活了Downloadcomplet事件，此時就能夠在瀏覽器的標題欄內顯示當前的URL，正如任一商業瀏覽器一樣。為此，必須從其Locationname屬性中得到瀏覽器的當前URL：

　　private sub webbrowser1_downloadcompiete()

　　form1.caption=webbrowser1.locationname

　　 …

　　 end sub

　　還有，通過以下方法可以把URL加載到組合框列表的上層：

　　private sub webbrowser1.downloadcomplete()

　　 form1.caption=webbrowser1.locationname

　　 combo1.addltem ebbrower1.licationURL,0

　　 end sub

　　現在，已經建立了Web瀏覽器并且用戶可以通過組合框里鍵入URLS進行導航。這里將會為瀏覽器增加Back和 Forward按鈕。

　　這比想像的恐怕還容易一些——使用瀏覽器的Goback或Goforward方法即可?？梢哉者@樣去做。通過檢測那些按鈕的鍵來決定工具條中的按鈕是否被按下：

　　private sub toolbar1_buttonclick(byval button as button )

　　select case button.key

　　case ″back″

　　webbrowser1.goback

　　case ″forwdrd″

　　webbrowser1.goforward

　　end select

　　end sub

　　這就是所有要做的——用戶可以在瀏覽器的記錄中進行下一步和上一步的導航了?，F在已經加載了Back和Forword按鈕。

　　給Web瀏覽器加載Refresh、 Home 和Stop按鈕

　　前面，已經建立了可以用用戶鍵入和選擇URLS組合框Web瀏覽器，如Back 和Forward按鈕，讓用戶通過導航穿梭于瀏覽器的記錄之中。然而，這里還有很多能實現其功能的按鈕：Refresh、Home和Stop按鈕。用戶可以用Web瀏覽器的Refresh、Gohome和Stop方法分別實現這些按鈕的功能。這里分別給出Refresh、Home和Stop 三個按鈕的名稱“Refresh”、“Home”和“Stop”，當匹配的按鈕被按下時，調用響應的Web瀏覽器方法（注意用戶按下Stop按鈕，也可以使用Web瀏覽器的Locationname屬性更新當前顯示在瀏覽器標題欄里的URL)：

　　private sub toolbar1_buttonclick(byval button as button

　　select case button.key

　　case ″back″

　　webbrowser1.goback

　　case ″forward″

　　webbrowse1.goforward

　　case ″refresh″

　　webbrowser1.refresh

　　case ″home″

　　webbrowser.gohome

　　case ″stop″

　　webbrowaer1.stop

　　me.caption=webbrowser1.locationname

　　end select

　　end sub

　　現在用戶能夠使用這些新按鈕：Refresh、Home和Stop。

原文轉自：http://www.anti-gravitydesign.com