VB.NET TabControl选项卡颜色修改问题：需支持外部触发调用

问题描述 #

当前可修改TabControl选项卡文本，但颜色修改无法持久（窗口重绘后丢失），且需要在TabControl1_Click事件外调用颜色修改功能，比如通过选项卡1上的按钮修改选项卡2的颜色，当前暂用Click事件测试。

解决方案 #

核心问题是直接用CreateGraphics绘制的内容会在控件重绘时丢失，需结合OwnerDrawFixed模式实现持久自定义绘制，同时让颜色修改方法支持外部调用：

1. 定义存储选项卡颜色的变量 #

在窗体类中添加集合，用于保存每个选项卡的背景色：

Private tabColors As New List(Of Color)

2. 初始化TabControl设置 #

在窗体加载事件中，设置TabControl的绘制模式，并初始化默认颜色：

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    TabControl1.DrawMode = TabDrawMode.OwnerDrawFixed
    ' 初始化每个选项卡的默认颜色（采用系统默认控件色）
    For Each tab As TabPage In TabControl1.TabPages
        tabColors.Add(SystemColors.Control)
    Next
End Sub

3. 实现TabControl的DrawItem事件（核心绘制逻辑） #

此事件会在选项卡需要绘制时触发，确保颜色持久显示：

Private Sub TabControl1_DrawItem(sender As Object, e As DrawItemEventArgs) Handles TabControl1.DrawItem
    Dim tabPage As TabPage = TabControl1.TabPages(e.Index)
    Dim headerRect As Rectangle = TabControl1.GetTabRect(e.Index)
    Dim textBrush As Brush
    Dim backBrush As New SolidBrush(tabColors(e.Index))

    ' 区分选中/未选中状态的文本颜色
    If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
        textBrush = New SolidBrush(SystemColors.HighlightText)
        ' 选中时绘制边框增强区分度
        e.Graphics.DrawRectangle(Pens.Black, headerRect)
    Else
        textBrush = New SolidBrush(tabPage.ForeColor)
    End If

    ' 填充选项卡背景色
    e.Graphics.FillRectangle(backBrush, headerRect)
    ' 绘制选项卡文本，居中对齐
    Dim sf As New StringFormat With {
        .Alignment = StringAlignment.Center,
        .LineAlignment = StringAlignment.Center
    }
    e.Graphics.DrawString(tabPage.Text, TabControl1.Font, textBrush, headerRect, sf)

    ' 手动释放绘图资源，避免内存泄漏
    textBrush.Dispose()
    backBrush.Dispose()
End Sub

4. 修改ChangeColor方法，支持外部调用 #

此方法用于修改指定索引选项卡的颜色，修改后刷新控件触发重绘：

Public Sub ChangeColor(tabIndex As Integer, targetColor As Color)
    ' 校验索引合法性，避免越界错误
    If tabIndex >= 0 AndAlso tabIndex < TabControl1.TabPages.Count Then
        tabColors(tabIndex) = targetColor
        ' 修改选项卡文本（保留原有需求）
        TabControl1.TabPages(tabIndex).Text = "TESTx " & (tabIndex + 1).ToString()
        ' 刷新控件，触发DrawItem事件重新绘制
        TabControl1.Refresh()
    End If
End Sub

5. 测试调用示例 #

示例1：TabControl点击事件调用

Private Sub TabControl1_Click(sender As Object, e As EventArgs) Handles TabControl1.Click
    ' 修改当前选中选项卡的颜色为黄色
    ChangeColor(TabControl1.SelectedIndex, Color.Yellow)
End Sub

示例2：选项卡内按钮调用（如选项卡1的Button1修改选项卡2颜色）

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    ' 修改索引为1的选项卡（第二个选项卡）颜色为红色
    ChangeColor(1, Color.Red)
End Sub

关键说明 #

• 持久化绘制：通过OwnerDrawFixed模式和DrawItem事件，确保窗口最小化、遮挡后重绘时颜色不会丢失
• 外部调用支持：ChangeColor方法可在任意事件中调用，只需传入目标选项卡索引和颜色值
• 资源管理：手动释放Brush资源，避免长期运行导致内存泄漏

内容的提问来源于stack exchange，提问作者Dave