Miembros compartidos (shared) de una clase - II

En el caso de variables de clase declaradas como miembros compartidos, este tipo de variable sólo es creado una vez, manteniendo su valor para todas las instancias de la clase. Esto contrasta con los miembros de instancia, de los que se crea una copia particular para cada objeto. 

El efecto de miembro compartido se hace más patente cuando se aplica sobre variables, por ello, en el ejemplo del Código fuente 286, creamos dos campos compartidos para la clase Empleado; uno de ellos actuará como contador de los objetos creados de la clase, usando el método constructor para ser incrementado. El otro nos servirá para comprobar que siendo compartido no se inicializa, y mantiene el valor asignado previamente.

Module General

Sub Main()

' accedemos a la variable compartida

' y le asignamos valor

Empleado.psApellidos = "Naranjo"

' instanciamos un primer objeto Empleado

Dim loEmp1 As New Empleado()

' asignamos valor a su variable de instancia

loEmp1.psNombre = "Luis"

' mostramos las dos variables del objeto

Console.WriteLine("Objeto loEmp1 - valores de sus variables")

Console.WriteLine("psNombre: {0} - psApellidos: {1}", _

loEmp1.psNombre, loEmp1.psApellidos)

Console.WriteLine()

' instanciamos un segundo objeto Empleado

Dim loEmp2 As New Empleado()

' asignamos valor a su variable de instancia

loEmp2.psNombre = "Juan"

' mostramos las dos variables del objeto

Console.WriteLine("Objeto loEmp2 - valores de sus variables")

Console.WriteLine("psNombre: {0} - psApellidos: {1}", _

loEmp2.psNombre, loEmp2.psApellidos)

Console.WriteLine()

' ahora mostramos el valor de

' la variable compartida miContar

Console.WriteLine("Se han instanciado {0} objetos de la clase Empleado", _

Empleado.piContar)

Console.ReadLine()

End Sub

End Module

Public Class Empleado

Public psNombre As String ' miembro de instancia

Public Shared psApellidos As String ' miembro compartido

Public Shared piContar As Integer ' miembro compartido

Public Sub New()

' por cada instancia de la clase creada,

' incrementar este campo compartido

Me.piContar += 1

End Sub

End Class

Código fuente 286