Bonjour,
Avez vous seulement tenté de télécharger une des ressources présentes sur ce site ?
Il eixte déjà un nombre important de classes/projets d'illustration susceptible de couvrir votre demande.
Sinon, voici une recette 'du cru' :
MaClasse est une classe
... les membres
// des constantes publiques
/(visibles dans le code du projet)
PUBLIC CONSTANT
CST_CRE = 1
CST_MOD = 2
CST_SUP = 3
FIN
FIN
// méthode avec CST CRE par défaut
// les constantes sont disponible via ::<NomConstante>
PROCEDURE ADroit(pParam=::CTS_CRE)
SELON pParam
CAS ::CST_CRE:
...traitement création...
CAS ::CST_MOD:
...traitement Modfication...
CAS ::CST_SUP:
...traitement suppression...
FIN
// Utilisation dans le projet
oClasse est un Maclasse
oClasse:aDroit(MaClasse::CST_MOD)
A NOTER :
- Les constantes sont disponible avec les doubles points ::
- Leur portée doit être publique pour une utilisation dans le projet
- Les constantes appartiennent à la classe et non l'instance, d'où la notation
:: et non
::Une fois intégrée, cette notion permet des merveilles.