Espacios de nombres (namespaces) - II

Como muestra la imagen, tanto el ensamblado como su espacio de nombres tienen como nombre ConsoleApplication1, por lo que todas las clases que escribamos dentro de este proyecto estarán dentro de dicho espacio de nombres. 

Vamos a ir construyendo progresivamente un ejemplo, para ver las variantes de uso de clases en función del espacio de nombres en el que estén contenidas. Crearemos para ello una nueva aplicación de consola, y en el fichero de código que incluye por defecto, además del módulo Module1 ya incluido al crearse el proyecto, escribiremos la clase Factura, ver Código fuente 242.

Module Module1

Sub Main()

' como la clase Factura se encuentra

' en el espacio de nombres raíz,

' instanciamos normalmente

Dim loFac As New Factura()

loFac.piID = 5

loFac.piImporte = 200

loFac.Datos()

Console.ReadLine()

End Sub

End Module

' clase Factura

' esta clase se encuentra dentro

' del espacio de nombres raíz del ensamblado

Public Class Factura

Public piID As Integer

Public piImporte As Integer

Public Sub Datos()

Console.WriteLine("La factura {0}, tiene un importe de {1}", _

Me.piID, Me.piImporte)

End Sub

End Class

Código fuente 242

Seguidamente, y en el mismo fichero de código, creamos la clase Empleado, pero la incluimos en el espacio de nombres Personal. Para crear un espacio de nombres en el código de la aplicación debemos utilizar las palabras clave Namespace...End Namespace. Ver Código fuente 243.
' clase Empleado
' esta clase se encuentra dentro
' del espacio de nombres raíz del ensamblado,
' y a su vez, dentro del espacio de
' nombres Personal
Namespace Personal
Public Class Empleado
Public psID As Integer
Public Sub MostrarDatos()
Console.WriteLine("Identificador del empleado: {0}", Me.psID)
Console.ReadLine()
End Sub
End Class
End Namespace

Código fuente 243