如何更改每个选项卡的颜色？

Question

我有一个表单，上面有四个选项卡，我希望每个选项卡具有不同的颜色。我在互联网上找到的唯一内容是如何更改所选选项卡的颜色，而其余选项卡保持原始颜色。我还没有找到任何东西可以为每个选项卡赋予自己的颜色。我目前拥有的代码是。

Private Sub TabControl1_DrawItem(sender As System.Object, e As System.Windows.Forms.DrawItemEventArgs) Handles TabControl1.DrawItem

        Dim g As Graphics = e.Graphics
        Dim tp As TabPage = TabControl1.TabPages(e.Index)
        Dim br As Brush
        Dim sf As New StringFormat

        Dim r As New RectangleF(e.Bounds.X, e.Bounds.Y + 2, e.Bounds.Width, e.Bounds.Height - 2)

        sf.Alignment = StringAlignment.Center

        Dim strTitle As String = tp.Text

        If TabControl1.SelectedIndex = e.Index Then

            'this is the background color of the tabpage header
            br = New SolidBrush(Color.LightSteelBlue) ' chnge to your choice
            g.FillRectangle(br, e.Bounds)

            'this is the foreground color of the text in the tab header
            br = New SolidBrush(Color.Black) ' change to your choice
            g.DrawString(strTitle, TabControl1.Font, br, r, sf)

        Else

            'these are the colors for the unselected tab pages 
            br = New SolidBrush(Color.Blue) ' Change this to your preference
            g.FillRectangle(br, e.Bounds)
            br = New SolidBrush(Color.Black)
            g.DrawString(strTitle, TabControl1.Font, br, r, sf)

        End If
    End Sub

Answer 1

您需要做两件事：

首先是更改TabControl的DrawMode并将其设置为OwnerDrawFixed

第二个是处理TabControl DrawItem事件

这是一个例子：

 Private Sub TabControl1_DrawItem(sender As Object, e As DrawItemEventArgs) Handles TabControl1.DrawItem
    Select Case e.Index
        Case 0
            e.Graphics.FillRectangle(New SolidBrush(Color.Red), e.Bounds)
        Case 1
            e.Graphics.FillRectangle(New SolidBrush(Color.Blue), e.Bounds)
        Case 2
            e.Graphics.FillRectangle(New SolidBrush(Color.Magenta), e.Bounds)

    End Select

    Dim paddedBounds As Rectangle = e.Bounds
    paddedBounds.Inflate(-2, -2)
    e.Graphics.DrawString(TabControl1.TabPages(e.Index).Text, Me.Font, SystemBrushes.HighlightText, paddedBounds)


End Sub

这就是它的样子（我只更改前三个选项卡页面的选项卡颜色，其他选项可以通过添加新案例来选择案例来轻松完成）

Answer 2

将此自定义库用于选项卡控件

https://github.com/manusoft/MControls

Answer 3

TabControl1 是您通过设计器添加到表单的选项卡控件吗？为什么不在每个选项卡中创建选项卡时为其设置 TabBackColor 属性呢？

如果没有（您必须通过代码来完成），只需使用循环循环浏览 TabControl1 的选项卡页集合 (TabControl1.TabPages) 中的每个选项卡，并为每个选项卡设置 TabBackColor 属性。