Buscador

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.

No hay comentarios:

Publicar un comentario