Tabcontrol Farbe ändern!

  • VB.NET
  • .NET (FX) 1.0–2.0

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Tabcontrol Farbe ändern!

    Moin! :)
    Ich möchte gerne die Farbe von einen Tabcontrol Register ändern!
    Habe bereits vieles ausprobiert.
    Ich habe einen Code, der aber alle Register Färbt, aber ich möchte ein bestimmtes auswählen.
    Zum Beispiel Register Nr. 1 soll Rot erscheinen.
    Ich hoffe das ich das Problem gut beschreiben habe.
    Freue mich auf eure Hilfe!
    BIG THX


    VB.NET-Quellcode

    1. Private Sub TabControl1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles TabControl1.DrawItem
    2. Dim g As Graphics = e.Graphics
    3. Dim tp As TabPage = TabControl1.TabPages(e.Index)
    4. Dim br As Brush
    5. Dim sf As New StringFormat
    7. Dim r As New RectangleF(e.Bounds.X, e.Bounds.Y + 2, e.Bounds.Width, e.Bounds.Height - 2)
    9. sf.Alignment = StringAlignment.Center
    11. Dim strTitle As String = tp.Text
    13. 'If the current index is the Selected Index, change the color
    14. If TabControl1.SelectedIndex = e.Index Then
    16. 'this is the background color of the tabpage header
    17. br = New SolidBrush(Color.LightSteelBlue) ' chnge to your choice
    18. g.FillRectangle(br, e.Bounds)
    20. 'this is the foreground color of the text in the tab header
    21. br = New SolidBrush(Color.Black) ' change to your choice
    22. g.DrawString(strTitle, TabControl1.Font, br, r, sf)
    24. Else
    26. 'these are the colors for the unselected tab pages
    27. br = New SolidBrush(Color.LightBlue) ' Change this to your preference
    28. g.FillRectangle(br, e.Bounds)
    29. br = New SolidBrush(Color.Black)
    30. g.DrawString(strTitle, TabControl1.Font, br, r, sf)
    32. End If
    33. End Sub
    Visual Basic.NET 8o
    MS-SQL     8o

    Bitte nochmal anders formulieren, denn ich verstehe: Du willst z.B. den Kopf von TabPage 1 rot machen und den Rest z.B. Grün. Dann werte doch in Zeile#14 es auch so aus: If e.Index = 0 Then
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Wenn nicht einfach im "Else" Bereich den Index abfragen, und dann einzeln die TabPage-Reiter Farbe verändern.
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

    Da die ganzen Variablennamen ausbaufähig sind und nicht Dispose genutzt wurde, obwohl nötig, hier mal wie es sauberer wäre:

    VB.NET-Quellcode

    1. Private Sub TabControl1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles TabControl1.DrawItem
    2. Dim ColorToUse = If(e.Index = 0, Color.Red, Color.LightSteelBlue)
    3. Using br As New SolidBrush(ColorToUse)
    4. e.Graphics.FillRectangle(br, e.Bounds)
    5. End Using
    6. Using BlackBrush As New SolidBrush(Color.Black)
    7. Using sf As New StringFormat()
    8. sf.Alignment = StringAlignment.Center
    9. e.Graphics.DrawString(TabControl1.TabPages(e.Index).Text, TabControl1.Font, BlackBrush, New RectangleF(e.Bounds.X, e.Bounds.Y + 2, e.Bounds.Width, e.Bounds.Height - 2), sf)
    10. End Using
    11. End Using
    12. End Sub

    Spoiler anzeigen

    oder nach IOSP

    VB.NET-Quellcode

    1. Private Sub TabControl1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles TabControl1.DrawItem
    2. DrawTabHeaderBackgroundWith(e)
    3. DrawTabHeaderTextWith(e)
    4. End Sub
    6. Private Sub DrawTabHeaderBackgroundWith(e As DrawItemEventArgs)
    7. Dim ColorToUse = If(e.Index = 0, Color.Red, Color.LightSteelBlue)
    8. Using br As New SolidBrush(ColorToUse)
    9. e.Graphics.FillRectangle(br, e.Bounds)
    10. End Using
    11. End Sub
    13. Private Sub DrawTabHeaderTextWith(e As DrawItemEventArgs)
    14. Using BlackBrush As New SolidBrush(Color.Black)
    15. Using sf As New StringFormat()
    16. sf.Alignment = StringAlignment.Center
    17. e.Graphics.DrawString(TabControl1.TabPages(e.Index).Text, TabControl1.Font, BlackBrush, New RectangleF(e.Bounds.X, e.Bounds.Y + 2, e.Bounds.Width, e.Bounds.Height - 2), sf)
    18. End Using
    19. End Using
    20. End Sub


    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    VaporiZed schrieb:

    VB.NET-Quellcode

    1. Using BlackBrush As New SolidBrush(Color.Black)
    Hier genügt ein Brushes.Black, dann ohne Using.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende