利用BCB巧建WEB浏览器
【打印文章】
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"。
第一步如下:
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"。
本栏文章均来自于互联网,版权归原作者和各发布网站所有,本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。( Pfan.cn )
【编程爱好者论坛】