Programación en Visual Basic 2008

Visual Basic Express Copiar código
Private passwordValue As String
WriteOnly Property Password() As String
Set(ByVal value As String)
passwordValue = value
End Set
End Property
Los procedimientos de propiedad ReadOnly y WriteOnly también son útiles
cuando se desea tomar un valor de propiedad y convertirlo en un valor
diferente. Por ejemplo, pensemos en la edad de una persona. A diferencia del
nombre, la edad cambia con el tiempo, si ha asignado la edad a una clase y la
lee de nuevo un año después, sería incorrecta.
En la clase Persons, puede evitarlo agregando dos propiedades: una
propiedad WriteOnly BirthYear que representa el año de nacimiento, que
nunca cambia, y una propiedad ReadOnly Age que devuelve un valor
calculando la diferencia entre el año en curso y el año de nacimiento.
Inténtelo
Para agregar propiedades ReadOnly y WriteOnly a la clase
Agregue el siguiente código de declaración debajo de las otras declaraciones en
la parte superior del módulo de clase.
Visual Basic Express Copiar código
Private birthYearValue As Integer
Agregue los siguientes procedimientos de propiedad debajo del código de
declaración.
Visual Basic Express Copiar código
WriteOnly Property BirthYear() As Integer
Set(ByVal value As Integer)
birthYearValue = value
End Set
End Property
Everts Garay | Granada, Nicaragua| Paseo por Visual Basic 2008 117