Change GroupBox Borde Colour

[AppleDeveloper]

Hi

Today im going to teach you how to change the colour of the groupbox border from white to any other colours that you want.
Lets do it.

Open your Project and then go to " Tools " and then " Add Class... "
and put this Source on the Class
[vb]
Public Class myGroupBox
Inherits GroupBox

Private _borderColor As Color

Public Sub New()
MyBase.New()
Me._borderColor = Color.Black
End Sub

Public Property BorderColor() As Color
Get
Return Me._borderColor
End Get
Set(ByVal value As Color)
Me._borderColor = value
End Set
End Property

Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
Dim tSize As Size = TextRenderer.MeasureText(Me.Text, Me.Font)
Dim borderRect As Rectangle = e.ClipRectangle
borderRect.Y = (borderRect.Y _
+ (tSize.Height / 2))
borderRect.Height = (borderRect.Height _
- (tSize.Height / 2))
ControlPaint.DrawBorder(e.Graphics, borderRect, Me._borderColor, ButtonBorderStyle.Solid)
Dim textRect As Rectangle = e.ClipRectangle
textRect.X = (textRect.X + 6)
textRect.Width = tSize.Width
textRect.Height = tSize.Height
e.Graphics.FillRectangle(New SolidBrush(Me.BackColor), textRect)
e.Graphics.DrawString(Me.Text, Me.Font, New SolidBrush(Me.ForeColor), textRect)
End Sub
End Class
[/vb]

If you got any problem with the source that i have gave here please contact me via pm and i will reply as soon as possible.

Thank you

 

[OliverE]

Nice, perhaps you could have a few pics, before and after.

 

[AppleDeveloper]

Topic has been updated Sir Any thing please pm me

 

[OliverE]

Haha thanks, no need to call me Sir. Im just Bleepy

 

[AppleDeveloper]

im just used to to call sir and i call sir and i don't even notice