制作易语言简易浏览器

w23108

1.新建一个易语言窗口
2.把易语言最上面的菜单——工具——支持库配置——找到超文本浏览框勾选

3.添加一个超文本浏览框，长度宽度随便

4.配置启动窗口

5.配置超文本预览框

6.写代码，双击启动窗口
写以下内容：

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

超文本浏览框1.左边 ＝ 0
超文本浏览框1.顶边 ＝ 0
超文本浏览框1.宽度 ＝ _启动窗口.宽度
超文本浏览框1.高度 ＝ _启动窗口.高度

i支持库列表	支持库注释
HtmlView	超文本浏览框支持库

.版本 2<br /> .支持库 HtmlView<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 超文本浏览框1.左边 ＝ 0<br /> 超文本浏览框1.顶边 ＝ 0<br /> 超文本浏览框1.宽度 ＝ _启动窗口.宽度<br /> 超文本浏览框1.高度 ＝ _启动窗口.高度

超文本浏览框1.左边 ＝ 0  ，  超文本浏览框1.顶边 ＝ 0   是为了浏览框向左上角对齐
超文本浏览框1.宽度 ＝ _启动窗口.宽度  ， 超文本浏览框1.高度 ＝ _启动窗口.高度   是为了自适应窗口大小
7.运行程序看看

拖动窗口看看，发现浏览框没有跟着变大
8.结束您的程序，继续写代码
添加_启动窗口的子程序，选择尺寸被改变

和上面一样写以下代码：

  

子程序名	返回值类型	公开	备 注
__启动窗口_尺寸被改变

超文本浏览框1.左边 ＝ 0
超文本浏览框1.顶边 ＝ 0
超文本浏览框1.宽度 ＝ _启动窗口.宽度
超文本浏览框1.高度 ＝ _启动窗口.高度

i支持库列表	支持库注释
HtmlView	超文本浏览框支持库

.版本 2<br /> .支持库 HtmlView<br /> <br /> .子程序 __启动窗口_尺寸被改变<br /> <br /> 超文本浏览框1.左边 ＝ 0<br /> 超文本浏览框1.顶边 ＝ 0<br /> 超文本浏览框1.宽度 ＝ _启动窗口.宽度<br /> 超文本浏览框1.高度 ＝ _启动窗口.高度

9.再次运行程序
打开里面的一个链接，发现是不是要用你的默认浏览器打开呀？
10.结束您的程序，继续写代码
点击你的浏览框，添加浏览框的子程序，即将打开新窗口

写以下代码：

  

子程序名	返回值类型	公开	备 注
_超文本浏览框1_即将打开新窗口	逻辑型

超文本浏览框1.地址 ＝ 超文本浏览框1.状态条文本
返回 (假)

i支持库列表	支持库注释
HtmlView	超文本浏览框支持库

.版本 2<br /> .支持库 HtmlView<br /> <br /> .子程序 _超文本浏览框1_即将打开新窗口, 逻辑型<br /> <br /> 超文本浏览框1.地址 ＝ 超文本浏览框1.状态条文本<br /> 返回 (假)

超文本浏览框1.地址 ＝ 超文本浏览框1.状态条文本
说一下状态条，用您的浏览器指向一个有链接的文本，浏览器最底下的就是状态条，写易语言的时候状态条没有显示，因为你看配置那里是灰色的，这条命令的作用是当你打开一个链接时，浏览框的地址就是你要打开的地址
返回 (假)的作用是：虽然你写了以上代码，但您的浏览器还是会弹出来，阻止浏览器弹出。

11.运行看看是不是没有BUG啦，完成软件，编译。

---------------------分割线---------------------------
扩展：
不管是浏览器还是桌面版，都要有前进后退刷新吧！
我们继续写前进和后退和刷新
PS：用按钮太难看,用菜单的形式
------------------------------------------------------
1.易语言右键——菜单编辑器
附件为菜单的GIF教程

然后依次点击菜单的三个按钮

前进写

  

子程序名	返回值类型	公开	备 注
_前进_被选择

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

i支持库列表	支持库注释
HtmlView	超文本浏览框支持库

.版本 2<br /> .支持库 HtmlView<br /> <br /> .子程序 _前进_被选择<br /> <br /> 超文本浏览框1.执行命令 (#前进)

后退写

  

子程序名	返回值类型	公开	备 注
_后退_被选择

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

i支持库列表	支持库注释
HtmlView	超文本浏览框支持库

.版本 2<br /> .支持库 HtmlView<br /> <br /> .子程序 _后退_被选择<br /> <br /> 超文本浏览框1.执行命令 (#后退)

刷新写：

  

子程序名	返回值类型	公开	备 注
_刷新_被选择

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

i支持库列表	支持库注释
HtmlView	超文本浏览框支持库

.版本 2<br /> .支持库 HtmlView<br /> <br /> .子程序 _刷新_被选择<br /> <br /> 超文本浏览框1.执行命令 (#刷新)

--------------------------------------------
简易浏览器已写完，后续会更新复杂一点的浏览器
路过的朋友请评分

版权声明

1、本站提供的一切软件、教程和内容信息仅限用于学习和研究目的

2、不得将上述内容用于商业或者非法用途，否则，一切后果请用户自负。

3、本站信息来自网络，版权争议与本站无关。您必须在下载后的24个小时之内，从您的电脑或手机中彻底删除上述内容。

4、如果您喜欢该程序，请支持正版，购买注册，得到更好的正版服务。如有侵权请邮件与我们联系处理。敬请谅解！。

本文地址: https://6fzd.com/thread-33616-1-1.html

w23108

最后一张GIF输入法没录进去，有一种莫名其妙打字的感觉

何以歌

可以的

3356545781

遇见神贴岂能不顶！

快乐天使

感谢楼主，好人一生平安