Crear mi propio control TextBoxEx

VB.NET

Crear mi propio control TextBoxEx

Roy Rojas

17 julio, 2005

En .NET se nos provee muchos controles para que los utilicemos en nuestras aplicaciones, pero una de las ventajas es que los podemos modificar o agregarle propiedades de una forma muy sencilla.

Para crear nuestro TextBoxEx seguiremos algunos pasos simples, y en esta ocación solamente le agregaremos dos acciones.
– Que cuando entre al control le cambie el color del fondo «BackColor» para diferenciarlo de los demás
– Cuando sale del control en el «Leave», nos identifique si ese campo es requerido o no, y si es requerido nos lo marque con un rojo.

El control que vamos a crear sería con este código:

Public Class TextBoxEx
Inherits System.Windows.Forms.TextBox

#Region » Windows Form Designer generated code «

Public Sub New()
MyBase.New()

'This call is required by the Windows Form Designer.
InitializeComponent()

'Add any initialization after the InitializeComponent() call

End Sub

'UserControl overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub

'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer

'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Private Sub InitializeComponent()
components = New System.ComponentModel.Container
End Sub

#End Region

#Region » Variables «

Private mEsRequerido As Boolean = False

#End Region

#Region » Propiedades «

Public Property EsRequerido() As Boolean
Get
Return mEsRequerido
End Get
Set(ByVal Value As Boolean)
mEsRequerido = Value
End Set
End Property

#End Region

#Region » Sobrecarga «

Protected Overrides Sub OnEnter(ByVal e As System.EventArgs)
Try
Me.BackColor = System.Drawing.SystemColors.Info
Me.ForeColor = System.Drawing.SystemColors.InfoText
Catch ex As Exception
Throw
End Try
End Sub

Protected Overrides Sub OnLeave(ByVal e As System.EventArgs)
Try
If Me.mEsRequerido = True And Me.Text.Trim.Length = 0 Then
Me.BackColor = Color.Red
Else
Me.BackColor = Color.White
Me.ForeColor = Color.Black
End If
Catch ex As Exception
Throw
End Try
End Sub

#End Region

End Class

Luego en el código de nuestra aplicación declaramos los TextBox como TextBoxEx y le indicamos en las propiedades si lo deseamos Requerido o No.