Private Sub Tap_DrawItem(sender As Object, e As _
  System.Windows.Forms.DrawItemEventArgs) Handles Tap.DrawItem
        Dim g As Graphics
        Dim sText As String
        Dim iX As Integer
        Dim iY As Integer
        Dim sizeText As SizeF
        Dim ctlTab As TabControl
        lblFokus.Select()
        ctlTab = CType(sender, TabControl)
        g = e.Graphics
        sText = ctlTab.TabPages(e.Index).Text
        sizeText = g.MeasureString(sText, ctlTab.Font)
        iX = e.Bounds.Left + 10
        iY = e.Bounds.Top + (e.Bounds.Height - sizeText.Height) / 2
        If Tap.SelectedIndex = e.Index Then
            g.FillRectangle(New SolidBrush(Color.FromArgb(251, 178, 14)), _
              e.Bounds)
            Dim tFont As Font = New Font(ctlTab.Font.Name, 11, FontStyle.Bold)
            g.DrawString(sText, tFont, Brushes.Black, iX, iY)
        Else
            Dim tFont As Font = New Font(ctlTab.Font.Name, 10, _
              FontStyle.Regular)
            g.FillRectangle(New SolidBrush(Color.FromArgb(253, 213, 0)), _
            e.Bounds)
            g.DrawString(sText, tFont, New SolidBrush(Color.FromArgb(64, 64, _
            64)), iX, iY)
        End If
        lblFokus.Select()
    End Sub

g.FillRectangle(New SolidBrush(Color.White), Me.ClientRectangle)

MFG Gizmo


Beitrag wurde zuletzt am 02.06.13 um 12:07:35 editiert.