VB.NET浏览器TabControl标签页复制功能异常求助

问题根源 #

1. 你当前代码直接使用全局的Text_Url.Text获取URL，这个控件属于第一个标签页，导致新标签复制时永远读取第一个标签的内容。
2. 点击复制按钮时，未正确关联当前点击按钮所属的Tabs_Child_Header控件，无法获取当前标签页的浏览器实例和对应URL。

修复后的代码 #

Private Async Sub Btn_Duplicate_Click(sender As Object, e As EventArgs) Handles Btn_Duplicate.Click
    ' 获取当前点击的复制按钮所属的Tabs_Child_Header（根据你的控件层级调整Parent的层级）
    Dim currentBtn As Button = DirectCast(sender, Button)
    Dim currentHeader As Tabs_Child_Header = DirectCast(currentBtn.Parent, Tabs_Child_Header)
    ' 找到当前标签页对应的WebView2控件
    Dim currentBrowser As WebView2 = currentHeader.Panel_Navigate.Controls.OfType(Of WebView2).FirstOrDefault()
    If currentBrowser Is Nothing Then Return

    Dim newTab As New TabPage
    Dim child_header As New Tabs_Child_Header
    Dim browser As New WebView2 

    ' 绑定浏览器事件
    Await browser.EnsureCoreWebView2Async
    AddHandler browser.CoreWebView2.NewWindowRequested, AddressOf Browser_NewWindowRequested

    AddHandler browser.CoreWebView2.NavigationCompleted, Sub()
                                                             child_header.Text_Url.Text = browser.Source.AbsoluteUri
                                                         End Sub

    AddHandler child_header.Btn_Back.Click, Sub() browser.GoBack()
    AddHandler child_header.Btn_Foward.Click, Sub() browser.GoForward()
    AddHandler child_header.Btn_Update.Click, Sub() browser.Reload()
    AddHandler child_header.Btn_Duplicate.Click, AddressOf Btn_Duplicate_Click

    ' 添加新标签到TabControl
    Child_TabControl.TabPages.Add(newTab)
    child_header.TopLevel = False
    child_header.Visible = True
    child_header.Dock = DockStyle.Fill
    newTab.Controls.Add(child_header)

    ' 配置新标签的WebView2
    newTab.Text = currentHeader.Text_Url.Text
    child_header.Panel_Navigate.Controls.Add(browser)
    browser.Dock = DockStyle.Fill
    browser.Visible = True
    browser.Source = currentBrowser.Source ' 加载当前标签的URL
End Sub

关键改动说明 #

• 绑定当前控件上下文：通过sender获取点击的按钮，再向上找到所属的Tabs_Child_Header，确保操作的是当前激活标签页的控件，而非全局控件。
• 获取当前浏览器实例：从当前Tabs_Child_Header的Panel_Navigate中提取对应的WebView2，直接复用它的Source作为新标签的加载地址。
• 移除全局URL依赖：替换所有Text_Url.Text的全局引用，改为使用当前标签页的控件值，保证复制的是当前标签的内容。

注意：如果currentBtn.Parent无法直接获取到Tabs_Child_Header，需要根据你的自定义控件布局调整Parent的层级（比如currentBtn.Parent.Parent），直到找到正确的Tabs_Child_Header实例。

内容的提问来源于stack exchange，提问作者Soligas