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

（VB）双击（AddHandler）删除选项卡

1 个答案: