易语言多页浏览器源码

易语言多页浏览器源码.版本 2 .支持库 HtmlView .支持库 iext .程序集 窗口程序集2 .子程序 _窗口1_创建完毕 .子程序 _超文本浏览框1_状态文本被改变 .局部变量 web, 超文本浏览框 web ＝ 取事件组件 () _启动窗口.状态条1.置文本 (0, web.状态条文本) .子程序 _超文本浏览框1_标题被改变 .局部变量 web, 超文本浏览框 .局部变量 i, 整数型 .局部变量 child, MDI_子窗口 web ＝ 取事件组件 () .变量循环首 (1, 取数组成员数 (临时浏览器), 1, i) .如果真 (临时浏览器 [i].浏览器 ＝ web) child ＝ 寻找子窗口 (临时浏览器 [i].hwnd) child.设置标题 (web.标题) 跳出循环 () .如果真结束 .变量循环尾 () .子程序 _超文本浏览框1_即将打开新窗口, 逻辑型 .局部变量 web, 超文本浏览框 web ＝ 取事件组件 () .如果真 (取文本左边 (web.状态条文本, 7) ＝ “http://”) MDIWIN.新建页面 (web.状态条文本) .如果真结束 返回 (假)