|
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"。
| 