1
2
3
4
5
6
7
8
9
10
| PROPERTY Name AS STRING ' <--------------------------------------------- déclaration de la propriété
PRIVATE $sName AS STRING ' <--------------------------------------------- définition du type de variable
PRIVATE SUB Name_Read() AS STRING ' <------------------------------ lecture de la valeur de la propriété
RETURN $sName ' <------------------------------------------------------------ renvoi de la valeur, c'est une fonction
END
PRIVATE SUB Name_Write(Value AS STRING) ' <---------------------- écriture de la valeur de la propriété
$sName = Value
END
|