WebBrowser,右键单击链接以打开新选项卡

WebBrowser, right click on links to open new tab

我已经制作了这个代码来打开新的 TAB,如果我点击链接上的 "right click" 然后我选择 "open in new window"

它会在我的浏览器中打开一个新的 TAB,但同时也会打开 Internet Explorer。

我只想让IE静音,或者让新标签选项不灰来使用。我不想制作自定义菜单,我相信有解决方案。

我在这里搜索了我的问题,这是不同的问题,所以请不要重复

这就是我用来制作它的方法

Private Sub WebBrowser1_NewWindow1(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles WebBrowser1.NewWindow
        Dim Browser As New WebBrowser
        TabControl1.TabPages.Add("New Page")
        TabControl1.SelectTab(int)
        Browser.Name = "Web Browser"
        Browser.Dock = DockStyle.Fill
        TabControl1.SelectedTab.Controls.Add(Browser)
        AddHandler Browser.ProgressChanged, AddressOf Loading
        AddHandler Browser.DocumentCompleted, AddressOf Done
        int = int + 1
    End Sub

我解决了。 很简单这个命令行会让IE静音

e.Cancel = True

您不需要构建其他菜单并关闭 IE 的主菜单然后重新构建所有项目。

这是点击 "right click on them" 时打开链接的最终代码,将在新标签页中打开

 Private Sub WebBrowser1_NewWindow1(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles WebBrowser1.NewWindow
   e.Cancel = True

    Dim thiselement As HtmlElement = WebBrowser1.Document.ActiveElement
    Dim Browser As New WebBrowser
    Dim targeturl As String = thiselement.GetAttribute("href")
    With Browser
        .Navigate(targeturl)
        .Dock = DockStyle.Fill
    End With

    TabControl1.TabPages.Add(targeturl)
    TabControl1.SelectTab(int)
    TabControl1.SelectedTab.Controls.Add(Browser)
    AddHandler Browser.ProgressChanged, AddressOf Loading
    AddHandler Browser.DocumentCompleted, AddressOf Done
    int = int + 1

End Sub