Удаление TabPage как в QIP

[Angerslave]

Хочу сделать удаление вкладок как в QIP. То есть кликаешь средней кнопкой на табе и она удаляется. Нашёл как удалять таб, но вот есть проблема: удаляет активный на текущий момент. А когда кликаю на какой-нить соседний, то удаляет всё равно текущий. Потом подумал и придумал что нужно вызывать ивент у табконтрола, но из своей формы я это сделать не могу. Не подскажите как быть?

[Ramzes]

из формы можешь
raiseevent

[Angerslave]

Ramzes, предыдущий ответ мне помог, правда немного не, что я хотел, но всё же решение. raiseevent не работает, пишет мол хочу увидеть ивент формы, а не какого-то мифического табконтрола. Сделал UserControl на основе табконтрола, там попробовал riseevent - тоже пишет мол не нравится. Попробовал вызывать OnClick перед тем как удалить активный таб - всё равно не пашет, удаляет активный до нажатия таб

[mad_Max]

Повесь обработчик на MouseDown TabControl'а (не TabPage)

Код: Выделить всё

    Private Sub TabControl1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TabControl1.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Middle Then
            Dim i As Integer
            For i = 0 To TabControl1.TabCount
                If TabControl1.GetTabRect(i).Contains(e.X, e.Y) Then
                    TabControl1.TabPages.RemoveAt(i)
                    Return
                End If
            Next
        End If
    End Sub

[Angerslave]

mad_Max, спасибо огромное, до такого решения я бы не допёр Ибо знаний маловато...