-
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"。
第一步如下:
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"。
最新更新
Objective-C语法之代码块(block)的使用
VB.NET eBook
Add-in and Automation Development In VB.NET 2003 (F
Add-in and Automation Development In VB.NET 2003 (8
Add-in and Automation Development in VB.NET 2003 (6
Add-in and Automation Development In VB.NET 2003 (5
AddIn Automation Development In VB.NET 2003 (4)
AddIn And Automation Development In VB.NET 2003 (2)
Addin and Automation Development In VB.NET 2003 (3)
AddIn And Automation Development In VB.NET 2003 (1)
2个场景实例讲解GaussDB(DWS)基表统计信息估
常用的 SQL Server 关键字及其含义
动手分析SQL Server中的事务中使用的锁
openGauss内核分析:SQL by pass & 经典执行
一招教你如何高效批量导入与更新数据
天天写SQL,这些神奇的特性你知道吗?
openGauss内核分析:执行计划生成
[IM002]Navicat ODBC驱动器管理器 未发现数据
初入Sql Server 之 存储过程的简单使用
SQL Server -- 解决存储过程传入参数作为s
武装你的WEBAPI-OData入门
武装你的WEBAPI-OData便捷查询
武装你的WEBAPI-OData分页查询
武装你的WEBAPI-OData资源更新Delta
5. 武装你的WEBAPI-OData使用Endpoint 05-09
武装你的WEBAPI-OData之API版本管理
武装你的WEBAPI-OData常见问题
武装你的WEBAPI-OData聚合查询
OData WebAPI实践-OData与EDM
OData WebAPI实践-Non-EDM模式