旷　强

　　使用VB5附带WebBrowserControl控件可以非常简单地设计出个实用浏览器

　　首先加载“Microsoft Internet Controls”和“Microsoft Windows Controls”Control控件然后设计好界面

　　在Web浏览器里定义URL

　　现在已经建立了浏览器里所需些Control控件如何让用户导航呢？

　　我们可使用WebBrowserControl控件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 eger)

　　 keyascii=vbkey then

　　 combo1—click

　　 end

　　 end sub

　　最后当下载过程结束时WebBrowseControl控件激活了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 button.key

　　 ″back″

　　webbrowser1.goback

　　 ″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 3个按钮名称“Refresh”、“Home”和“Stop”当匹配按钮被按下时响应Web浏览器思路方法(注意用户按下Stop按钮也可以使用Web浏览器Locationname属性更新当前显示在浏览器标题栏里URL):

　　private sub toolbar1_buttonclick(byval button as button

　　select button.key

　　 ″back″

　　webbrowser1.goback

　　 ″forward″

　　webbrowse1.goforward

　　 ″refresh″

　　webbrowser1.refresh

　　 ″home″

　　webbrowser.gohome

　　 ″stop″

　　webbrowaer1.stop

　　me.caption=webbrowser1.locationname

　　end select

　　end sub

　　现在用户能够使用这些新按钮:Refresh、Home和Stop