L'instruction Property permet de déclarer, un nom, des arguments et le code formant une propriété, dans une déclaration de classe créée par la commande Class.
[Public | Private] Property Get | Let | Set Nom_Propriété [(Arguments)] ' Instructions... [Exit Property] ' Instructions... End Property |
La définition dans un espace de nom d'une propriété peut s'effectuer soit dans le domaine privée, c'est-à-dire valable essentiellement au sein de la classe dans laquelle elle a été déclarée, soit dans le domaine privée (par défaut), soit dans tout un programme VBScript.
Nom_Propriété représente le nom de la propriété concernée et (Arguments), sa propre liste d'arguments séparées par des espaces blancs.
Exit Property est une instruction optionnelle permettant de sortir immédiatement de la propriété en cours.
Les instructions Let, Get et SetL'instruction Let affecte la valeur de la propriété.
Public Property Let propriete(valeur) valeur_propriete = valeur End Property
L'instruction Property Let peut contenir en son sein des commandes d'affectations Set permettant d'affecter une référence à une propriété.
L'instruction Get obtient la valeur de la propriété.
Public Property Get propriete propriete = valeur_propriete End Property
L'instruction Set définit la référence à un objet.
Exemple : [voir]Public Property Set propriete([arguments,] reference) ... End Property
<html>
<body>
<%
Class livre
Private titre_livre
Private prix_livre
Private Sub Class_Initialize
Response.Write "<p><i>La classe est initialisée</i></p>"
End Sub
Private Sub Class_Terminate
Response.Write "<p><i>La classe est détruite</i></p>"
End Sub
Public Property Let titre(valeur)
titre_livre = valeur
End Property
Public Property Get titre
titre = titre_livre
End Property
Public Property Let prix(montant)
prix_livre = FormatNumber(montant,2,-1)
End Property
Public Property Get prix
prix = prix_livre
End Property
Public Property Get convFrancsEuro
convFrancsEuro = FormatNumber(prix_livre * (1 / 6.55957),2)
End Property
Public Sub reduction(taux)
if taux > 5 then
taux = 5
End If
prix_livre = FormatNumber(prix_livre - (prix_livre * taux / 100),2,-1)
End Sub
End Class
Dim objet
Set objet = New livre
objet.titre = "ASP 3.0 : Le guide du développeur"
objet.prix = 298.00
Response.Write "<h2>Le livre " & objet.titre & "</h2>" _
& "<h4>Prix : " & objet.prix & " Francs "
Response.Write "<em style='font-size:10pt'>(" _
& objet.convFrancsEuro & " Euro)</em></h4>"
objet.reduction 5
Response.Write "<h4 style='color:green'>Si vous êtes abonnés, "
& "vous bénéficiez d'une réduction de maximum 5%.</h4>"
Response.Write "<h4>Prix réduit : " & objet.prix & " Francs</h4>"
Set objet = Nothing
%>
</body>
</html> |
| Instruction | Description |
|---|---|
| Property Get | Déclare le nom, les arguments et le code formant une procédure Property qui obtient (renvoie) la valeur d'une propriété. |
| Property Let | Déclare le nom, les arguments et le code formant une procédure Property qui affecte la valeur d'une propriété. |
| Property Set | Déclare le nom, les arguments et le code formant une procédure Property qui définit la référence à un objet. |