Descargar Aplicación TextBoxEx
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:
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.
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.
En la siguiente entrega veremos como agregarle mas propiedades al control, propiedades de vaidación, si acepta solo numeros o algún tipo de máscara.
