易语言如何制作浏览器

1、新建一个windows 窗口程序（必须）

2、将窗口拉倒合适的位置（必须）

3、为自己的浏览器命名（必须）

4、添加组件：一个超文本浏览框，两个编辑框，7个按钮，一个进度条（必须）

1、开始代码阶段，其实也不算特别难，还是直接上图吧，顺便复制过来

.版本 2

.支持库 HtmlView

.程序集 窗口程序集_启动窗口

.子程序 _按钮4_被单击

超文本浏览框1.地址 ＝ 编辑框1.内容

.子程序 _按钮1_被单击

超文本浏览框1.执行命令 (#后退)

.子程序 _按钮2_被单击

超文本浏览框1.执行命令 (#刷新)

.子程序 _按钮3_被单击

超文本浏览框1.执行命令 (#前进)

.子程序 _超文本浏览框1_即将打开新窗口, 逻辑型

超文本浏览框1.地址 ＝ 超文本浏览框1.状态条文本

返回 (假)

.子程序 __启动窗口_尺寸被改变

超文本浏览框1.高度 ＝ 取用户区高度 ()

超文本浏览框1.宽度 ＝ 取用户区宽度 ()

.子程序 _超文本浏览框1_载入完毕

编辑框1.内容 ＝ 超文本浏览框1.地址

.子程序 _超文本浏览框1_载入进度改变

.参数 进度百分比, 整数型

按钮进度.标题 ＝ 到文本 (进度百分比)

进度条1.位置 ＝ 进度百分比

.判断开始 (进度百分比 ＜ 100)

.默认

.判断结束

按钮进度.禁止 ＝ 真

按钮进度.禁止 ＝ 假

.子程序 _按钮5_被单击

超文本浏览框1.地址 ＝ “http://www.baidu.com/s?wd=” ＋ 编辑框2.内容 ＋ “&tn=62014089_dg”

.子程序 __启动窗口_创建完毕

.子程序 _按钮6_被单击

超文本浏览框1.地址 ＝ “www.baidu.com”

.子程序 _超文本浏览框1_放开某键, 逻辑型

.参数 键代码, 整数型

.参数 功能键状态, 整数型

.如果真 (键代码 ＝ #回车键)

    超文本浏览框1.地址 ＝ 编辑框1.内容

    如果真结束 ()

.如果真结束

.子程序 如果真结束

2

3

4

1、超文本浏览框1.地址=编辑框1.内容

意思：超文本浏览框所打开的网页地址是编辑框的内容，编辑框显示超文本浏览框打开的网页。

2、超文本浏览框1.执行命令（#XX）

意思：XX可以代表刷新等，表示超文本浏览框在满足一个条件时执行此命令。

3、超文本浏览框1.地址=超文本浏览框1.状态条文本

返回（假）

意思：在一个超文本浏览框内打开网页而不是打开Internet expleror

4、好了，本期的经验就到这结束吧！