制作易語言简易浏览器
本帖最后由 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]