TabControl1 Rahmenfarbe ändern.

  • VB.NET
  • .NET (FX) 4.0

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Cheffboss.

    TabControl1 Rahmenfarbe ändern.

    Moin! :)
    Ist es möglich die Farbe von einem TabControl1 zu ändern?
    Ich möchte die BackColor = Control Werte ändern.
    Aber leider sieht man immer noch diese Control Farbe (Siehe Bild).
    Ich hoffe ich könnte es gut erklären.
    Weiß jemand, ob dies machbar ist?
    BIG THX



    rahmenColorBug.zip
    Visual Basic.NET 8o
    MS-SQL     8o

    @Cheffboss Du musst Dir Dein eigenes TabControl schreiben.
    Ich hänge Dir mal ne C#-Variante ran.
    Bei Deinen übeer 1000 Posts gehe ich davon aus, dass Du Dir das allein nach VB.NET übersetzen kannst.
    Spoiler anzeigen

    C#-Quellcode

    1. using System.Drawing;
    2. using System.Windows.Forms;
    3. using System;
    5. namespace ColorTabControl
    6. {
    7. public partial class ColTabControl
    8. : TabControl
    9. {
    10. public ColTabControl()
    11. {
    12. this.ItemSize = new Size(80, 30);
    13. this.DrawMode = System.Windows.Forms.TabDrawMode.OwnerDrawFixed;
    14. this.SetStyle(ControlStyles.AllPaintingInWmPaint, true);
    15. }
    17. protected override void OnDrawItem(DrawItemEventArgs e)
    18. {
    19. Font font = null;
    20. Brush backBrush = null;
    21. Brush foreBrush = null;
    23. this.EraseBackground(e.Graphics);
    25. try
    26. {
    27. Rectangle bounds = e.Bounds;
    28. this.TabPages[e.Index].BackColor = Color.Silver;
    29. if (e.Index == this.SelectedIndex)
    30. {
    31. font = new Font(e.Font, e.Font.Style);
    32. backBrush = new SolidBrush(Color.DimGray);
    33. foreBrush = new SolidBrush(Color.White);
    34. bounds = new Rectangle(bounds.X + (this.Padding.X / 2), bounds.Y + this.Padding.Y, bounds.Width - this.Padding.X, bounds.Height - (this.Padding.Y * 2));
    35. }
    36. else
    37. {
    38. font = new Font(e.Font, e.Font.Style & ~FontStyle.Bold);
    39. backBrush = new SolidBrush(this.TabPages[e.Index].BackColor);
    40. foreBrush = new SolidBrush(this.TabPages[e.Index].ForeColor);
    41. }
    43. using (StringFormat sf = new StringFormat())
    44. {
    45. string tabName = this.TabPages[e.Index].Text;
    46. sf.Alignment = StringAlignment.Center;
    47. sf.LineAlignment = StringAlignment.Center;
    48. e.Graphics.FillRectangle(backBrush, bounds);
    49. e.Graphics.DrawString(tabName, font, foreBrush, bounds, sf);
    50. }
    51. }
    52. finally
    53. {
    54. if (backBrush != null) { backBrush.Dispose(); }
    55. if (foreBrush != null) { foreBrush.Dispose(); }
    56. if (font != null) { font.Dispose(); }
    57. }
    58. }
    60. #region Private Stuff
    62. /// <summary>
    63. /// Löschen des kompletten Hintergrundes der Reiter-Fläche,
    64. /// nicht aber der Reiter selbst
    65. /// </summary>
    66. private void EraseBackground(Graphics g)
    67. {
    68. using (Region reg = new Region(this.ClientRectangle))
    69. {
    70. // Höhe des Reiter-Bereichs, dynamisch, MultiLine
    71. int bottom = 0;
    72. for (int i = 0; i < this.TabPages.Count; i++)
    73. {
    74. Rectangle tabRect = this.GetTabRect(i);
    75. reg.Exclude(tabRect);
    76. bottom = Math.Max(bottom, tabRect.Bottom);
    77. }
    79. // Fläche der Tabs und des Rahmens stehenlassen
    80. Rectangle rect = new Rectangle(0, bottom, this.ClientRectangle.Width, this.ClientRectangle.Height - bottom);
    81. reg.Exclude(rect);
    82. using (Brush brush = new SolidBrush(Color.DodgerBlue))
    83. {
    84. g.FillRegion(brush, reg);
    85. }
    86. }
    87. }
    89. #endregion Private Stuff
    90. }
    91. }
    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