domingo, octubre 6, 2024

Crear mi propio control TextBoxEx

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:

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.

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.

Roy Rojas
Roy Rojashttp://www.dotnetcr.com
Con más de 20 años de experiencia en programación, experto en lenguajes .NET, VB, C#, ASP.NET, Xamarin, XCode, DBA en SQL Server. Creador de dotnetcr.com, sitio web para programadores en español. royrojas.com | dotnetcr.com | GitHub
Roy Rojas
Roy Rojashttp://www.dotnetcr.com
Con más de 20 años de experiencia en programación, experto en lenguajes .NET, VB, C#, ASP.NET, Xamarin, XCode, DBA en SQL Server. Creador de dotnetcr.com, sitio web para programadores en español. royrojas.com | dotnetcr.com | GitHub