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. |