THTML控件是个现成的Web浏览器，只要将这些控件放在窗体上并调用Request Doc()方法，也许这有些过份简化，但显示Internet上的Web文档也就这么简单。因此，下面显示了如何迅速编写Web浏览器应用程序。 



第一步如下： 



1．开始新的主应用程序，将窗体的Name属性变成Web Main，将Caption属性变成EZ Web Browser。 



2．将Panel构件放在窗体上，将其Align属性变为al Top，Height属性变为60，清除Caption属性。 



3．将Combo Box构件放在面板上，移到面板顶部并让它象面板一样宽，将Name属性变成URL Combo Box，将Text属性变为所选URL（如http://www.microsoft.com） 



4．将Status Bar构件放在窗体上，它自动放在窗体底部，将其Name属性变成Status Bar，Simple Panel 属性变为true。 



5．将HTML控件放在窗体中央，将Align属性变为a Client。HTML控件即填满屏幕。将Name属性变成HTML。 这时窗体如果还不美观则可以稍作调整，也可以保持原样（有点个性也不是坏事）。 这时应保存项目，将窗体存为Web BrwsU.cpp，项目成为Web Brows.cpp。然后要加进让浏览器工作的功能。 



6．单击URL组合框，产生On Click事件的处理器，在这个事件处理器中输入如下代码： 

if (URL Combo Box > Text! ="") HTML > Request Doc (URL Combo Box > Text); 



7．产生On Key Press事件的事件处理器在这个事件处理器中输入如下代码： 

if (Key = = VK_RETURN){ 

Key =0; 

if (URL Combo Box > Text = = "")return; 

URL Combo Box > Items > Insert(0,URL Combo Box > Text); 

URL Combo Box Click(Sender); 

} 



8．然后编译和运行程序。在组合框中输入URL并按Enter。如果输入有效URL，则页面装人HTML控件中。15分钟就建成了Web浏览器，这个浏览器已经很有样子了。只是还要加进不少功能。注意每次按Enter键时，输入的URL都会加进组合框的清单中。 



第二步：最后修饰 

首先在URL组合框下面加几个按钮。步骤如下： 

1．在URL组合框下面加一个按钮，按Name属性为Go Btn，Caption变为GO！ 



2．产生新按钮的On Click事件处理器，在事件处理器中输入下列代码： 

URL Combo Box Click(0)* 



3．在URL组合框下面加另一个按钮，放在第一个按钮右边，将Name属性变为Stop Btn，Caption变为Stop。 



4．产生新按钮的On Click事件处理器，在事件处理器中输入下列代码： 

HTML > Cancel(0); Status Bar > Simple Text ="Done"; 



5．在前面两个按钮右边放第三个按钮，将Name属性变为Reload Btn，Caption变为Reload。 



6．产生新按钮的On Click事件处理器，在事件处理器中输入下列代码： 

URL Combo Box Click(0); 



7．在面板上放最后一个按钮。将Name属性变为Source Btn，Caption变为View Source。 



8．产生新按钮的On Click事件处理器，在事件处理器中输入下列代码： 



HTML > View Source =!HTML 

> View Source; if 

(HTML > View Source) Source Btn > Caption= " 

View Document"; else Source Btn > Caption= "View 

Source"。