VB.Net - Webbrowser，在新选项卡中打开导航错误

Question

我正在使用 VB 中的网络浏览器（IE 引擎，我稍后可能会使用 GeckoFX）并且我已经使用我的自定义菜单覆盖了默认的上下文菜单，其中包括一个“在新选项卡中打开”按钮。

当用户单击该按钮时，它会创建另一个 TabPage，其中包含另一个 Web 浏览器，该浏览器从前一个 Web 浏览器导航到该链接。

这是我的代码：

Private Sub ToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem2.Click
    Dim x1 As New TabPage
    Dim B1 As New WebBrowser
    TabControl1.TabPages.Add(x1)
    TabControl1.SelectTab(x1)
    B1.IsWebBrowserContextMenuEnabled = False
    B1.ContextMenuStrip = Open
    B1.Dock = DockStyle.Fill
    TabControl1.SelectedTab.Controls.Add(B1)
    Dim Elem As HtmlElement = WebBrowser1.Document.ActiveElement
    Dim target As String = Elem.GetAttribute("href")
    B1.Navigate(target)
End Sub

但是，由于这条线：

Dim Elem As HtmlElement = WebBrowser1.Document.ActiveElement

如果用户从第一个 Web 浏览器 (WebBrowser1) 打开新的WebBrowser 组件，它将导航到正确的链接。因此，如果用户在第二个网络浏览器上并打开一个新选项卡，第三个网络浏览器将导航到第二个网络浏览器已经在的位置。那么，我应该如何解决这个问题？

我应该用什么替换WebBrowser1.Document.ActiveElement??

提前致谢

Answer 1

您目前每次都引用WebBrowser1。要引用当前的网络浏览器，您必须首先获取选定的选项卡，然后您可以在该TabPage 中获取WebBrowser。

如果您的标签页中只有一个WebBrowser 控件，或者您知道该控件始终具有相同的索引，您可以这样做：

Dim Elem As HtmlElement = DirectCast(TabControl1.SelectedTab.Controls(0), WebBrowser).Document.ActiveElement

使用DirectCast，您将SelectedTab 的第一个控件转换为WebBrowser。

SelectedTab.Controls 是容器中所有控件的集合。第一个控件通过索引 0 访问（因此 SelectedTab.Controls(0) 中的 0）。