实现代码很简单,但是思路可以给大家借鉴一下,有时候同样的事情换个思路就到了一个新的境界。
[e]
.版本 2
.支持库 HtmlView
.子程序 __启动窗口_创建完毕
_启动窗口.底色 = #红色
顶边 = -5
左边 = -5
宽度 = 取屏幕宽度 () + 10
高度 = 取屏幕高度 () + 10
超文本浏览框1.顶边 = 0
超文本浏览框1.左边 = 0
超文本浏览框1.宽度 = 宽度 + 20
超文本浏览框1.高度 = 高度 + 20
写到文件 (“temp.htm”, 到字节集 (#HTML))
超文本浏览框1.地址 = 取运行目录 () + “/temp.htm”
设置窗口 (取窗口句柄 (), -20, 位或 (取窗口风格 (取窗口句柄 (), -20), 524288))
设置透明 (取窗口句柄 (), #红色, 200, 1)
.子程序 _超文本浏览框1_即将打开新窗口, 逻辑型, , 利用该事件来进行HTML和程序的交互,从而获得关闭程序的作用,你也可以利用其他事件来转换成应用程序的交互接口来用
.如果 (信息框 (“是否要退出程序?”, #是否钮, “这里是程序信息框”) = #是钮)
删除文件 (“temp.htm”)
结束 ()
.否则
.如果结束
返回 (假)
[/e]
webui.zip
(3.56 KB, 下载次数: 36)
|