改变控件的边框颜色(示例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