-
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"。
最新更新
nodejs爬虫
Python正则表达式完全指南
爬取豆瓣Top250图书数据
shp 地图文件批量添加字段
爬虫小试牛刀(爬取学校通知公告)
【python基础】函数-初识函数
【python基础】函数-返回值
HTTP请求:requests模块基础使用必知必会
Python初学者友好丨详解参数传递类型
如何有效管理爬虫流量?
2个场景实例讲解GaussDB(DWS)基表统计信息估
常用的 SQL Server 关键字及其含义
动手分析SQL Server中的事务中使用的锁
openGauss内核分析:SQL by pass & 经典执行
一招教你如何高效批量导入与更新数据
天天写SQL,这些神奇的特性你知道吗?
openGauss内核分析:执行计划生成
[IM002]Navicat ODBC驱动器管理器 未发现数据
初入Sql Server 之 存储过程的简单使用
SQL Server -- 解决存储过程传入参数作为s
JavaScript判断两个数组相等的四类方法
js如何操作video标签
React实战--利用甘特图和看板,强化Paas平
【记录】正则替换的偏方
前端下载 Blob 类型整理
抽象语法树AST必知必会
关于JS定时器的整理
JS中使用Promise.all控制所有的异步请求都完
js中字符串的方法
import-local执行流程与node模块路径解析流程