易语言浏览网页

源码下载：http://download.csdn.net/detail/friendan/9378686

-------------------------------------------------------------------------------------------------------------

.版本 2
.支持库 spec
.支持库 HtmlView


.程序集 窗口程序集_启动窗口


.子程序 _选择框_窗口置顶_被单击




.如果 (选择框_窗口置顶.选中)
    _启动窗口.总在最前 ＝ 真
.否则


    _启动窗口.总在最前 ＝ 假
.如果结束






.子程序 __启动窗口_创建完毕
.局部变量 txtURL, 文本型




_启动窗口.总在最前 ＝ 真
选择框_窗口置顶.选中 ＝ 真
g_iniPath ＝ 取运行目录 () ＋ “\Config.ini”
调试输出 (g_iniPath)
txtURL ＝ 读配置项 (g_iniPath, “Web”, “URL”, “www.baidu.com”)


编辑框_URL.内容 ＝ txtURL
超文本浏览框1.地址 ＝ 编辑框_URL.内容






.子程序 _按钮_浏览_被单击, , , 浏览
.局部变量 msg, 文本型




' msg ＝ 到文本 (_启动窗口.左边) ＋ “ ” ＋ 到文本 (_启动窗口.顶边) ＋ “ ” ＋ 到文本 (_启动窗口.宽度) ＋ “ ” ＋ 到文本 (_启动窗口.高度)
' 信息框 (msg, 0, , )


超文本浏览框1.地址 ＝ 编辑框_URL.内容
写配置项 (g_iniPath, “Web”, “URL”, 编辑框_URL.内容)




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




' 窗口自适应大小
编辑框_URL.宽度 ＝ _启动窗口.宽度 － 按钮_浏览.宽度 － 编辑框_URL.左边 － 30
按钮_浏览.左边 ＝ 编辑框_URL.左边 ＋ 编辑框_URL.宽度 ＋ 5
超文本浏览框1.左边 ＝ 0  ' X坐标
超文本浏览框1.顶边 ＝ 编辑框_URL.高度 ＋ 20  ' Y坐标
超文本浏览框1.宽度 ＝ _启动窗口.宽度 － 20
超文本浏览框1.高度 ＝ _启动窗口.高度 － 超文本浏览框1.顶边 － 45