Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/vb.net/16.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
在新选项卡VB.NET中打开web浏览器链接_Vb.net_Visual Studio 2013 - Fatal编程技术网

在新选项卡VB.NET中打开web浏览器链接

在新选项卡VB.NET中打开web浏览器链接,vb.net,visual-studio-2013,Vb.net,Visual Studio 2013,我正在尝试实现一个代码,该代码在VB.NET中创建的选项卡式web浏览器的新选项卡中打开链接。我有以下代码: Private Sub OpenLinkInNewTabToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OpenLinkInNewTabToolStripMenuItem.Click Dim Browser1 As New WebBrowser Dim tabpage1 A

我正在尝试实现一个代码,该代码在VB.NET中创建的选项卡式web浏览器的新选项卡中打开链接。我有以下代码:

Private Sub OpenLinkInNewTabToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OpenLinkInNewTabToolStripMenuItem.Click
        Dim Browser1 As New WebBrowser
        Dim tabpage1 As TabPage = Browser1.Tag
        TabControl1.TabPages.Add("New Page")
        TabControl1.SelectTab(int1)
        Browser1.Name = "Web Browser 1"
        Browser1.Dock = DockStyle.Fill
        TabControl1.SelectedTab.Controls.Add(Browser1)
        AddHandler Browser1.ProgressChanged, AddressOf Loading1
        AddHandler Browser1.DocumentCompleted, AddressOf Done1
        int1 = int1 + 1
        'Browser1.Navigate(Ele1.GetAttribute("href").ToString)
        Browser1.Url = New Uri(DirectCast(Me.TabControl1.SelectedTab.Controls("Web Browser 1"), WebBrowser).Document.ActiveElement.GetAttribute("href"))
        Try
            If Browser1.DocumentTitle.Length > 25 Then
                tabpage1.Text = Browser1.DocumentTitle.Substring(0, 25)
            Else
                tabpage1.Text = Browser1.DocumentTitle
            End If
            Browser1.ScriptErrorsSuppressed = True
        Catch ex As Exception
        End Try
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).IsWebBrowserContextMenuEnabled = False
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).ContextMenuStrip = ContextMenuStrip1

    End Sub
但是,我得到了Browser1.Url=。。。每当我右键单击任何链接并选择“在新选项卡中打开”时,都会显示一行

请帮帮我


编辑:我想要一个解决方案,它可以告诉我右键单击的元素。稍后我可以存储元素的href,将其转换为字符串,并使用它进行导航。我几乎到处搜索,但找不到解决方案。

如果这7个变量DirectCastMe.TabControl1.SelectedTab.ControlsWeb浏览器1、WebBrowser.Document.ActiveElement.GetAttributehref等于零,那么它是哪一个?我认为GetAttributehref。不过我还是编辑了我的问题。看一看