TabPage Image + DrawItem

hi frnds, I want to add cross button image on the right hand side of tabPage...I m creating tabpages at Runtime....
Mine code is added image to the Right along with the text at the left...

I want to just ask that is that possible to write the code the dat i m able to close tab when i click on the image
PLZ help me on this matter
Mine code below that is adding tab at runtime along with image-

Public Class Form2
Dim TabPageIndex As Integer
Dim tab As TabPage = New TabPage("SONIA SARDANA")
Public Sub New()
TabControl1.DrawMode = System.Windows.Forms.TabDrawMode.OwnerDrawFixed
End Sub

Private Sub TabControl1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs)

Dim img As Image = ImgIcons.Images(0)

Dim _imageLocation As Point = New Point(15, 5)
Dim _imgHitArea As Point = New Point(13, 2)

Dim r As Rectangle = e.Bounds
r = Me.TabControl1.GetTabRect(e.Index)
r.Offset(2, 2)

Dim TitleBrush As Brush = New SolidBrush(Color.Black)
Dim f As Font = Me.Font

Dim title As String = Me.TabControl1.TabPages(e.Index).Text
e.Graphics.DrawString(title, f, TitleBrush, New PointF(r.X, r.Y))
e.Graphics.DrawImage(img, New Point(r.X + (Me.TabControl1.GetTabRect(e.Index).Width - _imageLocation.X), _imageLocation.Y))

Catch ex As Exception
End Try
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Static lTabIndex As Integer
lTabIndex = lTabIndex + 1
tab.Name = "Tab" & lTabIndex
TabPageIndex = TabControl1.TabPages.Count - 1
AddHandler TabControl1.DrawItem, AddressOf TabControl1_DrawItem

Catch ex As Exception
End Try
End Sub
End Class
Sign In or Register to comment.

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!