以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  浏览器控件内点击会跳到外部浏览器上问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=73886)

--  作者:bailang121
--  发布时间:2015/8/28 14:10:00
--  浏览器控件内点击会跳到外部浏览器上问题
就是用内部浏览器打开一个网站~   点击网页内的内容的时候~ 会弹出另一个网页~  这时候直接跳转到外部浏览器啦!    这个问题咋解决啊???   为什么不能都在内部浏览器内显示的呢

这样内部浏览器好像感觉就是只能打开一个网页的感觉啦!·~~  完全不能用啊~~~~

--  作者:大红袍
--  发布时间:2015/8/28 14:29:00
--  

下载信息  [文件大小:320.0 KB  下载次数:48]
图片点击可在新窗口打开查看点击浏览该文件:web.foxdb

[此贴子已经被作者于2015/8/28 14:29:08编辑过]

--  作者:大红袍
--  发布时间:2015/8/28 14:31:00
--  

mark 新窗口

 

全局代码

 

Public Sub web_DocumentCompleted(sender As object, e As windows.forms.WebBrowserDocumentCompletedEventArgs)
    For Each archor As object In sender.Document.Links
        archor.SetAttribute("target", "_self")
    Next
End Sub

 

Public Sub web_NewWindow(sender As object, e As system.ComponentModel.CancelEventArgs)
    e.cancel = True
End Sub

 

afterLoad事件

 

Dim web As windows.Forms.webbrowser = e.Form.Controls("WebBrowser1").basecontrol
web.ScriptErrorsSuppressed = True
addhandler web.DocumentCompleted, addressof web_DocumentCompleted
addhandler web.NewWindow, addressof web_NewWindow


--  作者:bailang121
--  发布时间:2015/8/28 15:52:00
--  
感谢!图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看
--  作者:WWK740318
--  发布时间:2019/2/27 23:46:00
--  找啥资料看
这种代码貌似不认识我,找啥资料学习??
--  作者:有点甜
--  发布时间:2019/2/28 9:20:00
--  
以下是引用WWK740318在2019/2/27 23:46:00的发言:
这种代码貌似不认识我,找啥资料学习??

 

照抄代码,不就行了?全局代码

 

http://www.foxtable.com/webhelp/scr/1938.htm

 

 


--  作者:有点甜
--  发布时间:2019/2/28 9:26:00
--  

如果需要别的,参考

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=100997&skin=0