如何让TextBox的黑色边框变成淡蓝色（borderstyle=FixedSingle)

来源： 作者： 出处：巧巧读书 2006-09-15 进入讨论组

• 关 键 词：
• windows

　　我在写的过程中发现了这个控件并不用 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 来选择框架的颜色。文章地址： http://www.qqread.com/dotnet/s234349.html进入讨论组讨论。

【收藏此文】【大 中 小】【打印】【关闭】

较早的文章：浅谈网站工程的管理与规范(刚搜到的)

较新的文章：使用客户端脚本