Friend - II

A continuación, agregamos una referencia desde el proyecto de consola hacia el proyecto de biblioteca de clases, y en el módulo de código, importamos el espacio de nombres del ensamblado correspondiente a la biblioteca de clases, escribiendo después en Main( ), código que interactúe con un objeto de la clase Empleado, comprobaremos cómo no es posible manipular los miembros Friend del objeto Empleado. Ver Código fuente 263.

Imports ClassLibrary1

Module Module1

Sub Main()

Dim loEmplea As Empleado = New Empleado()

' al acceder a las propiedades del objeto

' desde este proyecto, no está disponible

' el miembro mdbSueldo ya que está declarado

' como Friend en la clase Empleado

loEmplea.piID = 70

loEmplea.Nombre = "Alicia Mar"

loEmplea.VerDatos()

Console.Read()

End Sub

End Module

Código fuente 263

Aunque hemos descrito su modo de manejo a través de clases, la palabra clave Friend también puede ser utilizada como modificador de ámbito para variables y procedimientos situados en módulos de código.