Crear espacios de nombres adicionales en una librería

Continuando con el ejemplo anterior, supongamos ahora, que en el código de la librería añadimos un nuevo espacio de nombres, al que llamamos Personal, y escribimos en su interior la clase Empleado, como vemos en el Código fuente 251.

' código de la clase Contabilidad

'....

'....

' nuevo código en un nuevo espacio de nombres

Namespace Personal

Public Class Empleado

Public Function FechaActual() As Date

Dim Fecha As Date

Fecha = Now

Return Fecha

End Function

End Class

End Namespace

Código fuente 251

Tras compilar de nuevo la librería, nos situaremos en el proyecto de consola que accede a ella, y seleccionaremos la opción de menú Ver + Actualizar. Con esta acción, se restablecerán las referencias existentes en este proyecto hacia librerías externas. 

Para poder instanciar ahora un objeto de la clase Empleado que está en la librería, debemos añadir una nueva instrucción de importación en el archivo de código, que importe el espacio de nombres raíz y el nuevo que acabamos de crear. El Código fuente 252 muestra el código actualizado del proyecto ejecutable. En el caso de que no escribiéramos la segunda línea de importación, no podríamos crear objetos de la clase Empleado.

Imports Rutinas ' importar espacios de nombres raíz

Imports Rutinas.Personal ' importar espacios de nombres nuevo

Module Module1

Sub Main()

' instanciar y trabajar con objetos de la librería

Dim oContab As Contabilidad

Dim oEmple As Empleado

oContab = New Contabilidad()

oContab.NombreBalance = "Saldos"

oContab.MostrarBalance()

oEmple = New Empleado()

Console.WriteLine("La fecha es: {0}", oEmple.FechaActual())

Console.Read()

End Sub

End Module

Código fuente 252