Espacios de nombres (namespaces) - IV

El modo de instanciar, desde Main( ), objetos de las clases del espacio de nombres Contabilidad, es exactamente el mismo que hemos descrito para el espacio de nombres Personal: bien importamos el espacio de nombres, o empleamos los nombres calificados. Veamos el Código fuente 247.

Imports ConsoleApplication1.Contabilidad
Module Module1
Sub Main()
' instanciamos con sintaxis calificada
Dim loCuen As New Contabilidad.Cuenta()
Dim liDatoCuenta As Integer
loCuen.piCodigo = 158
liDatoCuenta = loCuen.Obtener()
' al haber importado el espacio de nombres
' podemos instanciar usando el nombre
' de la clase directamente
Dim loBal As Balance
loBal = New Balance()
loBal.psDescripcion = "Resultado trimestral"
loBal.MostrarDescrip()
Console.ReadLine()
End Sub
End Module

Código fuente 247

Una cualidad muy de agradecer cuando escribimos clases dentro de espacios de nombre, reside en que podemos tener las clases de un mismo espacio de nombres diseminadas por todo el código de la aplicación. Por ejemplo, en el módulo Module1 hemos definido el espacio de nombres Personal, y creado en su interior la clase Empleado; pues bien, si añadimos otra clase al proyecto, podemos incluir también esta clase en el espacio de nombres Personal, a pesar de que dicho código se encuentre en otro fichero distinto. Ver Código fuente 248.

Namespace Personal

Public Class Proveedor

Public psID As Integer

Public psDescrip As String

Public Sub MuestraProv()

Console.WriteLine("El proveedor tiene el código" & _

" {0} y la descripción {1}", Me.psID, Me.psDescrip)

End Sub

End Class

End Namespace

Código fuente 248

Cuando importemos el espacio de nombres Personal, todas las clases que contiene pasarán a estar disponibles, con independencia del fichero de código que las contenga.