浏览器控件内点击会跳到外部浏览器上问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 浏览器控件内点击会跳到外部浏览器上问题

共有5141人关注过本帖树形打印复制链接主题：浏览器控件内点击会跳到外部浏览器上问题

bailang121

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：140 积分：1242 威望：0 精华：0 注册：2015/4/10 15:44:00

浏览器控件内点击会跳到外部浏览器上问题 发帖心情

Post By：2015/8/28 14:10:00 [只看该作者]

就是用内部浏览器打开一个网站~ 点击网页内的内容的时候~ 会弹出另一个网页~ 这时候直接跳转到外部浏览器啦！这个问题咋解决啊？？？为什么不能都在内部浏览器内显示的呢

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

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/8/28 14:29:00 [只看该作者]

下载信息 [文件大小：320.0 KB 下载次数：48]
点击浏览该文件:web.foxdb

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

大红袍

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：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