WEB控件问题：如何让在新窗口打开的链接也显示在OLE控件中？

[Netcity]

使用WEB浏览器控件打开一个网页，当点击一个链接时，如果该链接设置了在新窗口中打开，那么，单击后将自动启动IE打开此链接，有没有办法让新的页面还是在OLE控件里打开呢？

[li_d_s]

这是html控制的阿

[Netcity]

我知道是HTML控制的呀。现在我想要的是在IE打开相应的链接页面前进行拦截，比如说触发一个事件在其中编写代码获得打开的URL，然后就可以在WEB控件里打开了，当然，还得阻止IE打开才行。

[Netcity]

UP

[liujiaqiang]

没有用PB开发过Web程序...
sorry

[Netcity]

第一个问题已经解决，可以在CLICK事件里捕获点击的URL，然后在OLE控件里打开。

剩下的问题是如何阻止弹出窗及IE自动打开网页。

[xingxing]

你需要更新注册表中的默认打开程序，。

[fh136]

to:Netcity(千王之王)
你是怎么捕获点击的URL的可以告诉我吗
谢谢!!!

[Netcity]

//
string ls_tagName, ls_name, ls_url
ls_tagName=ole_1.object.document.activeElement.tagName

if upper(trim(ls_tagName))="A" then //同理可以对INPUT等响应
ls_name = ole_1.object.document.activeElement.id
ls_url=ole_1.object.Document.activeElement.href

ole_1.object.Navigate( ls_url )
end if

return 1

[Netcity]

我看了一下微软的参考文档，应该可以在newwindow事件里设置一个标识参数决定是在程序中打开还是在IE中打开，但还是不明白。而且，为什么我在PB8里找不到这个事件呢？该如何自定义？？？

[huaxiaosxl]

调用另一个事件就可以了，将上面的代码给为下面的代码就可以了。
//
string ls_tagName, ls_url
ls_tagName=ole_1.object.document.activeElement.tagName

if upper(trim(ls_tagName))="A" then //同理可以对INPUT等响应
ls_url=ole_1.object.Document.activeElement.href
//关键就在下面这一保存
st_1.event clicked()
ddlb_url.text = ls_url
//打开页面
ole_1.object.Navigate( ls_url )
end if

return 1

[Netcity]

讨论一下，我发现只要在Click事件里使用Messagebox弹出一个窗口就可以阻止IE打开网页，有什么办法实现相同的功能但不需要用户去响应呢。