Propriété

Pour concevoir une propriété VB .NET, vous devez créer un attribut ayant le stéréotype <<Property>>, un autre attribut avec le stéréotype <<PropertyImplementation>> est alors automatiquement créé, il s'affiche avec un trait de soulignement dans la liste des attributs. Les opérations getter et setter correspondantes sont également automatiquement créées.

Vous pouvez supprimer l'attribut de mise en oeuvre.

Si vous supprimez l'opération getter, le mot-clé ReadOnly est automatiquement généré. Si vous supprimez l'opération setter, le mot clé WriteOnly est automatiquement généré. Si vous supprimez à la fois les opérations getter et setter, l'attribut n'a plus le stéréotype <<Property>>.

Lorsque vous définissez un attribut <<Property>>, le caractère modifiable ou non et les opérations getter/setter sont intimement liés comme indiqué dans le tableau suivant 

Opérations

Caractère modifiable de la propriété

Si vous conservez les opérations getter et setter

La propriété est Modifiable

Si vous supprimez l'opération setter d'une propriété modifiable

La propriété devient Lecture seule

Si vous supprimez l'opération getter d'une propriété modifiable

La propriété devient Ecriture seule

D'un autre côté, si vous modifiez le caractère modifiable ou non de la propriété, les opérations refléteront ce changement, par exemple si vous transformez une propriété modifiable en propriété en lecture seule, l'opération setter est automatiquement supprimée.

Dans l'exemple suivant, la classe Button contient une propriété Caption. L'opération Getter a été supprimée car elle provoque l'apparition du mot clé WriteOnly dans la ligne de déclaration de la propriété :



Public Class Button
   Private captionValue As String
   Public WriteOnly Property Caption() As String
      Set (ByVal Value As String)
         captionValue = value
         Repaint()
         
      End Set
   End Property
End Class

Public Class Person
   Private _ChildAge As Integer
   
   Private Property ChildAge(ChildName as String) As Integer
      Get
         return _ChildAge
      End Get
      Set (ByVal Value ChildAge As Integer)
         If (_ChildAge <> newChildAge)
            _ChildAge = newChildAge
         End If
      End Set
   End Property
End Class


Created October 8, 2009. Send feedback on this help topic to Sybase Technical Publications: pubs@sybase.com