VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 编程开发 > 汇编语言 >
  • c语言入门之利用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"。 

相关教程