w23108 发表于 2018-8-2 19:21:22

制作易语言简易浏览器

本帖最后由 w23108 于 2018-8-2 19:25 编辑

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

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

4.配置启动窗口

5.配置超文本预览框

6.写代码,双击启动窗口
写以下内容:
.版本 2
.支持库 HtmlView

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

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

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

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

和上面一样写以下代码:
.版本 2
.支持库 HtmlView

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

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



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

写以下代码:.版本 2
.支持库 HtmlView

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

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

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

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

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

前进写.版本 2
.支持库 HtmlView

.子程序 _前进_被选择

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

后退写.版本 2
.支持库 HtmlView

.子程序 _后退_被选择

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



刷新写:.版本 2
.支持库 HtmlView

.子程序 _刷新_被选择

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


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

w23108 发表于 2018-8-2 19:26:29

最后一张GIF输入法没录进去,有一种莫名其妙打字的感觉{:4_114:}

何以歌 发表于 2018-8-2 20:46:13

可以的

3356545781 发表于 2018-8-22 10:42:25

遇见神贴岂能不顶!

快乐天使 发表于 2018-8-29 12:49:45

感谢楼主,好人一生平安
页: [1]
查看完整版本: 制作易语言简易浏览器