Public Class CEmpleado Implements ICloneable 'Declaramos las variables publicas en vez de usar propiedades por simplicidad Public M_nombre Public M_apellido 'Las funciones no necesitan clonarse Public Function QuienSoy() As String Return M_nombre & "" & M_apellido End Function Public Function Clone() As Object Implements System.ICloneable.Clone 'Creamos una instancia de mi mismo, es perfectamente posible Dim EmpleadoClonado As New CEmpleado 'La copia tiene que ser miembro a miembro EmpleadoClonado.M_nombre = Me.M_nombre EmpleadoClonado.M_apellido = Me.M_apellido 'Devolvemos el objeto que acabamos de crear Return EmpleadoClonado End FunctionEnd Class
|