|
曠 強
使用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
這就是所有要做的——用戶可以在瀏覽器的記錄中進行下一步和上一步的導航了。現在已經加載了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。
|
