[Visual Basic] Extensión de métodos

Un método de extensión básicamente lo que permite hacer es añadir funcionalidades a clases ya existentes sin tener que utilizar herencia, ni nada semejante.

Un método de extensión debe ser necesariamente un método (sub) o una función (function), y debe ser creado dentro de un módulo. El método de extensión debe ser decorado con el atributo <Extension()> y para que este pueda ser utilizado se debe importar el namespace System.Runtime.CompilerServices.

Ahora para hacer un pequeño demo vamos a crear un método de extensión que tome un string y lo devuela en formato (para el ejemplo vamos a suponer que la cadena enviada siempre será numérica).

El método que creamos estará disponibles para el tipo de dato que le enviemos como primer parámetro a la función.

Entonces lo primero que debemos hacer es añadir un modulo, y dentro de ese modulo declaramos el método de extensión así:

   1:  <Extension()>

   2:  Public Function FormatoMoneda(ByVal sCadena As String) As String

   3:      Return Val(sCadena).ToString("$##,##0")

   4:  End Function

Como ven es una función muy sencilla que simplemente le da el formato deseado, y ahora cuando utilicemos un valor de tipo string y le demos . vamos a tener disponible la función formato moneda. Para verificar el ejemplo vamos a tener una aplicación Windows form (para que sea sencillo) con dos cajas de texto y un botón, y al idea es que cuando se de clic en el botón el número introducido en el primer textbox aparezca en el segundo pero con el formato deseado, así que el código del botón seria:

   1:  txtFormato.Text = txtOriginal.Text.FormatoMoneda()

Y una vez ejecutemos la aplicación tendremos algo como:

Espero les sea de utilidad.

[Visual Basic] Clases parciales

Las clases parciales permiten dividir la definición de una clase en varias partes. Las clases parciales no crean múltiples clases, simplemente crean una clase y dicha clase se implementa en diferentes partes.

Para definir una clase parcial basta con colocar antes del class el modificador Partial:

   1:  Partial Class MiClase

   2:  End Class

Ahora un pequeño ejemplo:

1. En un proyecto vamos a crear dos carpetas, la idea será simular que en una carpeta tenemos las clases bases y en la otra vamos a tener las clases que por decirlo de alguna manera siguen con la implementación de dichas clases, algo como:

2. En la carpeta de clases principales vamos a crear una clase que se llame Persona, la cual será pública y parcial, además que va a definir dos propiedades diferentes (nombre y apellido) y un método el cual asignara un valor al nombre, algo bastante simple:

 

   1:  Partial Public Class Persona

   2:      Private Property sNombre As String

   3:      Private Property sApellido As String

   4:   

   5:      Public Sub EstablecerNombre(ByVal nombre As String)

   6:          _sNombre = nombre

   7:      End Sub

   8:  End Class

3. Ahora en la carpeta de clases extendidas creamos una nueva clase llamada Persona y un método que establezca el apellido:

   1:  Public Class Persona

   2:      Public Sub EstablecerApellido(ByVal apellido As String)

   3:          _sApellido = apellido

   4:      End Sub

   5:  End Class

Como se puede observar la clase tiene el mismo nombre, pero al ser una de ellas parcial es compilador no nos genera error.

Ahora una vez utilicemos la clase vamos a disponer de los dos métodos:

   1:  Dim persona1 As New Persona

   2:  persona1.EstablecerNombre("Julio")

   3:  persona1.EstablecerApellido("Apellido")

Claro, el ejemplo que se ha hecho es bastante simple, pero la idea era mostrar el funcionamiento de las clases parciales.

[Visual Basic] Valores únicos GUID

GUID es una estructura que permite generar identificadores únicos, su uso es bastante sencillo, simplemente se debe llamar el método NewGuid para generar el identificador.

Vamos a realizar un sencillo ejemplo, la idea es que le usuario pueda ingresar en un campo de texto un número, y la aplicación va a generar ese mismo de identificadores los cuales se visualizarán en un listbox, así el método que nos realizará este proceso será:

   1:  Dim unique As Guid

   2:  For i As Integer = 1 To CInt(txtCantidad.Text)

   3:      unique = Guid.NewGuid()

   4:      lbValores.Items.Add(unique)

   5:  Next

Entonces en la primera línea declaramos una variable de tipo Guid, luego se crea un ciclo for para saber cuantos identificadores se van a generar, en la línea 3 se llama el método NewGuid de la estructura Guid para generar el valor y finalmente los agregamos al listbox. Al probar ejemplo veremos algo como:

Como ven es algo bastante sencillo, espero les sea de utilidad.

Descarga el ejemplo!