(VB)通过双击 (添加处理程序) 删除选项卡

Question

所以正如你从标题中看到的那样，我希望能够双击该选项卡（具有它名称的选项卡顶部），我希望它被删除。我目前有以下代码来创建选项卡：

Private Sub Panel1_DoubleClick(sender As Object, e As EventArgs) Handles Panel1.DoubleClick
    Dim tab As New TabPage
    Dim newtab As New tab
    newtab.Show()
    newtab.Dock = DockStyle.Fill
    newtab.TopLevel = False
    tab.Controls.Add(newtab)
    Form1.TabControl1.TabPages.Add(tab)
    Form1.TabControl1.SelectedTab = tab

End Sub

因此，通过双击面板来创建选项卡。这工作正常，但我现在希望能够双击一个选项卡并摆脱它。我尝试使用AddHandler，但我无法完全理解它。感谢您的帮助:)

Answer 1

这

应该适用于选项卡标题上的DoubleClick。希望这有帮助：

Private Sub TabPage_DoubleClick(sender As Object, e As MouseEventArgs) Handles TabControl1.DoubleClick
    Dim myTabControl As TabControl = DirectCast(sender, TabControl)
    If myTabControl Is Nothing Then Return
    For Each myTabPage As TabPage In myTabControl.TabPages
        If myTabControl.GetTabRect(myTabPage.TabIndex).Contains(e.Location) Then
            myTabControl.TabPages.Remove(myTabPage)
            Return
        End If
    Next
End Sub