Bases de datos

Colecciones
SOLUCIÓN

A

lgunas indicaciones:

 Para añadir una clase al proyecto, haga clic con el botón derecho del ratón en su
nombre en la ventana Solution Explorer y elija Add - Class. Éste podría ser el código de la clase Foto (archivo Foto.vb):
Public Class Foto
Private _codFoto As String
Private _titulo As String
Private _fecha As Date
Private _resolucion As IntegerPrivate _color As Boolean
Public Sub New(ByVal codFoto As String, ByVal titulo As String, _
ByVal fecha As Date, ByVal resolucion As Integer, _
ByVal color As Boolean)
Me._codFoto = codFotoMe._titulo = titulo
Me._fecha = fecha
Me._resolucion = resolucion
Me._color = color
End Sub
Public ReadOnly Property codFoto() As String
Get
Return _codFoto
End Get
End Property
Public ReadOnlyProperty titulo() As String
Get
Return _titulo
End Get
End Property
Public ReadOnly Property fecha() As Date
Get
Return _fecha
End Get
End Property
Public ReadOnly Property color() As BooleanGet
Return _color
End Get
End Property
Public Overrides Function ToString() As String
Return _codFoto
End Function
End Class

 Se incluyen las propiedades _codFoto, _titulo, _fecha,_resolucion y _color, así como
el constructor de la clase y los correspondientes procedimientos Property para cada una
de esas propiedades.
Visual Basic 2008 El lenguaje Visual Basic 2008
Copyright (c)Computer Aided Education SA

 Como las propiedades sólo pueden establecerse durante la creación del objeto, es
decir, en el constructor, todas se han declarado como Private y sus correspondientesprocedimientos Property son de sólo lectura (ReadOnly).
 Fíjese en la implementación del método ToString, que sobrescribe (Overrides) el
mismo método de la clase base, es decir, de Object. En estecaso, ToString simplemente
devuelve el valor de la propiedad _codFoto.
 Como los objetos de la clase Foto no son de un tipo de datos básico, es necesario
establecer cómo deben compararse. Para...