制作易语言简易浏览器
本帖最后由 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.执行命令 (#刷新)
--------------------------------------------
简易浏览器已写完,后续会更新复杂一点的浏览器
路过的朋友请评分
最后一张GIF输入法没录进去,有一种莫名其妙打字的感觉{:4_114:} 可以的
遇见神贴岂能不顶! 感谢楼主,好人一生平安
页:
[1]