易语言互联网浏览器怎么处理才可以在本窗口打开新的超链接?

2024-12-29 08:18:52
推荐回答(2个)
回答1:

你好,这个问题很好解决的。

只需要在浏览器的  即将打开事件中加入个拦截阻止打开新窗口的命令就行了

请参考如下

.程序集 窗口程序集_启动窗口
.程序集变量 text, 文本型

.子程序 _互联网浏览器1_即将打开新窗口
.参数 浏览器对象, 对象, 参考
.参数 取消打开, 逻辑型, 参考

取消打开 = 真
互联网浏览器1.浏览 (text, , , )

.子程序 _互联网浏览器1_状态文本被改变
.参数 状态文本, 文本型, 参考

text = 状态文本



希望我的回答对你有所帮助!Kiss灬小猪

回答2:

超文本浏览框的:
.程序集变量 IHTMLDocument2, 对象
_超文本浏览框1_即将打开新窗口

IHTMLDocument2 = 超文本浏览框1.取文档对象 ()
url = IHTMLDocument2.读文本属性 (“url”, )'这样可以获取到地址

超文本浏览框1.地址 = url
互联网浏览器的:
.版本 2
.支持库 WebBrowser2
.支持库 spec

.子程序 _互联网浏览器1_即将打开新窗口
.参数 浏览器对象, 对象, 参考
.参数 取消打开, 逻辑型, 参考

取消打开 = 真
互联网浏览器1.取网页文档对象 (对象1)
url = 对象1.读文本属性 (“url”, )
调试输出 (url)