在新选项卡VB.NET中打开web浏览器链接
我正在尝试实现一个代码,该代码在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
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。不过我还是编辑了我的问题。看一看