改变控件的边框颜色(示例Label)

 

Imports System.Drawing.Drawing2D
Public Class VistaLabelClass VistaLabel
    Inherits Label
    Private ChangeColor As Boolean

    Private _BorderColor As Color = Color.Transparent

    Public Property BorderColor()Property BorderColor() As Color
        Get
            Return _BorderColor
        End Get
        Set(ByVal value As Color)
            _BorderColor = value
        End Set
    End Property

    Private Sub VistaLabel_MouseLeave()Sub VistaLabel_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseLeave
        MyBase.BackColor = Color.Transparent
        ChangeColor = False
    End Sub

    Private Sub VistaLabel_MouseMove()Sub VistaLabel_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        MyBase.BackColor = Color.FromArgb(235, 247, 255)
        ChangeColor = True
    End Sub

    Private Sub VistaLabel_Paint()Sub VistaLabel_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        If ChangeColor = True Then
            e.Graphics.DrawRectangle(DirectCast(New Pen(_BorderColor), Pen), 0, 0, Me.Width - 1, Me.Height - 1)
        Else
            e.Graphics.DrawRectangle(Pens.Transparent, 0, 0, Me.Width - 1, Me.Height - 1)
        End If
    End Sub
End Class