Chapter 17 Travailler avec VB .NET
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
Copyright (C) 2005. Sybase Inc. All rights reserved. |
![]() |