如何让TextBox的黑色边框变成淡蓝色（borderstyle=FixedSingle)_.NET教程

如何让TextBox的黑色边框变成淡蓝色（borderstyle=FixedSingle)_.NET教程_编程技术

2013-12-20 13:52:30 [小大] 已经帮助：人解决问题

我在写的过程中发现了这个控件并不用 Paint 事件，所以只好直接截取 WndProc 函数了，很简单，是这样的：

Public Class TextBoxBlue
  Inherits TextBox

  Protected Overrides Sub WndProc(ByRef m As system.Windows.Forms.Message)
    MyBase.WndProc(m)
    Const WM_PAINT As Integer = &HF
    If m.Msg = WM_PAINT AndAlso Me.BorderStyle = BorderStyle.FixedSingle
Then
      Dim g As Graphics = Graphics.FromHwnd(Me.Handle)
      g.DrawRectangle(Pens.Blue, Me.ClientRectangle.Left,
Me.ClientRectangle.Top, Me.ClientRectangle.Width - 1,
Me.ClientRectangle.Height - 1)
      g.Dispose()
    End If
  End Sub
End Class

也可以自己添加一个属性叫做 BorderColor 来选择框架的颜色。

（责任编辑：）