大家一定注意到這個問題： Windows Form的所有控制元件在Disabled的時候，文字的顏色是灰色的。（尤其是XP風格下不容易看清內容）

如下圖所示：

重畫以後的效果：

為了解決這個問題，通常的辦法是在OnPaint裡按照當前TextBox的屬性，

重寫文字的內容把灰色字型寫成黑色（或者是當前設定的ForeColor）

重畫的時候還要注意以下一些問題：

①要保持Design時設定的文字對應方式（Left,Center,Right）

②要保持密碼設定的字元（PasswordChar有設定時）

③文字內容超過顯示區域時，要保證能最大程度的顯示文字內容

繼承於System的TextBox, 重寫OnPaint方法，重寫OnEnableChanged（）方法：

呼叫SetStyle方法，讓控制元件自身在Disable下能夠重畫文字內容。

具體如程式碼：

Imports System.Windows.Forms <Drawing.ToolboxBitmap(GetType(TextBox))> _ Public Class uctlEdit Inherits System.Windows.Forms.TextBox Private objColor As Drawing.Color = Me.BackColor Protected Overrides Sub OnEnabledChanged(ByVal e As System.EventArgs) MyBase.OnEnabledChanged(e) If Not Me.Enabled Then Me.BackColor = Me.Parent.BackColor Me.SetStyle(ControlStyles.UserPaint, True) Else Me.BackColor = objColor Me.SetStyle(ControlStyles.UserPaint, False) End If Me.Invalidate() Me.RecreateHandle() End Sub Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs) MyBase.OnPaint(e) Dim strText As String = Me.Text If Me.PasswordChar <> Nothing Then strText = New String(Me.PasswordChar, Me.Text.Length) End If Dim tf As TextFormatFlags = TextFormatFlags.Default If Me.TextAlign = HorizontalAlignment.Left Then tf = TextFormatFlags.Left ElseIf Me.TextAlign = HorizontalAlignment.Right Then tf = TextFormatFlags.Right Else tf = TextFormatFlags.HorizontalCenter End If Dim rect As Drawing.Rectangle = New Drawing.Rectangle(-1, 1, e.ClipRectangle.Width, e.ClipRectangle.Height) TextRenderer.DrawText(e.Graphics, strText, Me.Font, rect, Color.Black, tf) End Sub End Class