去评论
辅助岛

制作易语言简易浏览器

w23108
2018/08/02 19:21:22
本帖最后由 w23108 于 2018-8-2 19:25 编辑

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

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

4.配置启动窗口

5.配置超文本预览框

6.写代码,双击启动窗口
写以下内容:
  
子程序名返回值类型公开备 注
__启动窗口_创建完毕  
超文本浏览框1.左边 = 0
超文本浏览框1.顶边 = 0
超文本浏览框1.宽度 = _启动窗口.宽度
超文本浏览框1.高度 = _启动窗口.高度


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

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

和上面一样写以下代码:
  
子程序名返回值类型公开备 注
__启动窗口_尺寸被改变  
超文本浏览框1.左边 = 0
超文本浏览框1.顶边 = 0
超文本浏览框1.宽度 = _启动窗口.宽度
超文本浏览框1.高度 = _启动窗口.高度


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


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

写以下代码:
  
子程序名返回值类型公开备 注
_超文本浏览框1_即将打开新窗口逻辑型 
超文本浏览框1.地址 = 超文本浏览框1.状态条文本
返回 ()


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

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

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

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

前进写
  
子程序名返回值类型公开备 注
_前进_被选择  
超文本浏览框1.执行命令 ( #前进 )


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

后退写
  
子程序名返回值类型公开备 注
_后退_被选择  
超文本浏览框1.执行命令 ( #后退 )


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



刷新写:
  
子程序名返回值类型公开备 注
_刷新_被选择  
超文本浏览框1.执行命令 ( #刷新 )


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

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