[VB.NET] Bordo colorato attorno a qualunque controllo con focus

    Public Sub Control_Enter(ByRef Ctrl As Control, ByRef BackCtrl As Control)
        Dim g As Graphics = BackCtrl.CreateGraphics()
        Dim Penna As New Pen(Color.Red, 2.0)

        g.DrawRectangle(Penna, New Rectangle(Ctrl.Location, Ctrl.Size))
        Penna.Dispose()
        g.Dispose()
        Ctrl.BackColor = Color.Yellow
    End Sub

    Public Sub Control_Leave(ByRef Ctrl As Control, ByRef BackCtrl As Control)
        Dim g As Graphics = BackCtrl.CreateGraphics()
        Dim Penna As New Pen(SystemColors.Control, 2.0)

        g.DrawRectangle(Penna, New Rectangle(Ctrl.Location, Ctrl.Size))
        Penna.Dispose()
        g.Dispose()
        Ctrl.BackColor = Color.White
    End Sub

Public Class TBox_bordata
    Inherits TextBox

    Private Sub Me_GotFocus() Handles Me.GotFocus
        Dim g As Graphics = Me.Parent.CreateGraphics
        Dim Penna As New Pen(Color.Red, 2.0)
        g.DrawRectangle(Penna, New Rectangle(Me.Location, Me.Size))
        Penna.Dispose()
        g.Dispose()
    End Sub

    Private Sub Me_LostFocus() Handles Me.LostFocus
        Dim g As Graphics = Me.Parent.CreateGraphics
        Dim Penna As New Pen(SystemColors.Control, 2.0)
        g.DrawRectangle(Penna, New Rectangle(Me.Location, Me.Size))
        Penna.Dispose()
        g.Dispose()
    End Sub

End Class

 Il codice sorgente non è stato renderizzato qui
perchè non c'è sufficiente spazio.
Clicca qui per visualizzarlo in una nuova finestra