标签边框线颜色设置

[wangchaocn]

我把标签BoderStyle设置为FixedSingle。
标签的边框线为黑色。
那怎样才能改变边框线颜色呢？如改成蓝色。

[ghchen]

不是有个BorderColor
楼主的Label控件的BoderStyle有FixedSingle值吗?/

[hamadou]

Imports System.ComponentModel
Imports System.Drawing

Public Class mytextbox
Inherits System.Windows.Forms.TextBox

Public Sub New()
MyBase.New()

'该调用是 Windows 窗体设计器所必需的。
InitializeComponent()

'在 InitializeComponent() 调用之后添加任何初始化
setstyle(ControlStyles.UserPaint, True)
setstyle(ControlStyles.ResizeRedraw, True)
End Sub
Private _bordercolor As Color = Color.Red

<Description("边框颜色")> _
Public Property BorderColor() As Color
Get
Return _bordercolor
End Get
Set(ByVal Value As Color)
_bordercolor = Value
Me.Invalidate()
End Set
End Property

Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
If Me.BorderStyle = BorderStyle.FixedSingle Then
DrawBackGround(e)
DrawMyString(e)
DrawBorderColor(e)
End If
End Sub

Private Sub DrawBackGround(ByVal e As System.Windows.Forms.PaintEventArgs)
Dim c As Color = Me.BackColor
Dim g As Graphics = e.Graphics
Dim b As New SolidBrush(c)
g.FillRectangle(b, e.ClipRectangle)
End Sub
Private Sub DrawMyString(ByVal e As System.Windows.Forms.PaintEventArgs)
Dim g As Graphics = e.Graphics
Dim w As Single = (Me.Height - g.MeasureString(Me.Text, Me.Font).Height) / 2
g.DrawString(Me.Text, Me.Font, New SolidBrush(Me.ForeColor), 5, w)

End Sub

Private Sub DrawBorderColor(ByVal e As System.Windows.Forms.PaintEventArgs)
Dim g As Graphics = e.Graphics
g.DrawRectangle(New Pen(Me._bordercolor), New Rectangle(0, 0, Me.Width - 1, Me.Height - 1))
End Sub
End Class

[wangchaocn]

感谢各位！

to ghchen()
BoderStyle有FixedSingle值
却找不到BorderColor
我用的是 .net 2003

[shichaoreal]

hamadou(闵峰--为了理想而奋斗),你在画边框啊，服拉。

[shichaoreal]

还有，没有BorderColor，又不是在写html

[wangchaocn]

To: hamadou(闵峰--为了理想而奋斗)
您的代码怎么用啊?

[shichaoreal]

这个问题查了半天也不知道怎么改，但是可以麻烦点来实现。（相当麻烦）

先作一个窗体form1,把一个label放到窗体上，Borderstyle设为FixedSingle，然后边框是黑色的吧，再把窗体的transparency设为黑色，即黑色透明，在作一个窗体form2，背景色为蓝色，利用form1的窗体移动的事件，取得form1的坐标，把form2放到这个位置上，然后聚焦到form1.

就是让form2老在form1的底下，利用form1上label的透明来显现form2的背景蓝色.

只是form1的黑色以后都会是蓝色，哈

[sky]

修改该标签的背景色/前景色不行吗？

[wangchaocn]

ding

[hamadou]

创建用户控件，然后把上边的代码复制过去粘贴上去即可。