ENUM |
Énumération |
|---|---|
| Visual Basic | |
Syntaxe
|
ENUM nom constante1 constante2 ... END ENUM |
|
[Public | Private] Enum name constante [= constantexpression] constante [= constantexpression] . . . End Enum |
Paramètres
| Nom | Description |
|---|---|
| nom | Ce paramètre permet d'indiquer le nom de l'énumération |
| constante1,constante2,... | Ce paramètre permet d'indiquer les constantes |
Description
Cette instruction permet de définir une énumération de constante.
Remarque
- Si vous ne définissez pas de valeur à vos constantes, par défaut la valeur commence à 0, suivi de 1 et ainsi de suite...
- L'instruction Enum ne peut apparaître qu'au niveau du module, dans la section des déclarations d'un formulaire, d'un module de code ou d'un module de classe.
- Le mot clef Public rend le type de données énuméré visible dans tout le projet dans lequel il est utilisé; Ceci est le comportement par défaut. Notez que l'ajout d'une référence à une bibliothèque contenant des types énumérés publics à un projet rend ces types visibles pour le projet. Une classe n'a pas besoin d'être instanciée pour accéder à ces types énumérés.
- Le mot clef Private rend le type de données énuméré visible uniquement par le module dans lequel il apparaît.
- Le paramètre constantexpression doit être évalué à un Long. Il peut s'agir d'un nombre négatif ou positif. Il peut également s'agir d'un autre membre d'un type de données énuméré ou d'une expression comprenant des entiers longs et des types de données énumérés.
- Si vous attribuez une valeur à virgule flottante à une expression constante, elle est arrondie et convertie automatiquement en un entier long.
- Si le paramètre constantexpression est omise, la valeur attribuée à constante est 0 s'il s'agit de la première expression de l'énumération. Sinon, sa valeur est supérieure de 1 à la valeur du nom de membre précédent.
- Les valeurs attribuées à constante ne peuvent pas être modifiées lors de l'exécution.
Exemple
Cet exemple permet d'indiquer des combinaisons de facturation de la taxe :
- Enum calculdelataxe
- sanstaxe
- separer
- composer
- End Enum
-
- Sub Main()
- Dim taxeCanada As calculdelataxe
- taxeCanada = separer
- Select Case taxeCanada
- Case sanstaxe
- MsgBox "Il n'a pas de taxe"
- Case separer
- MsgBox "La taxe est calculer seulement sur la somme"
- case composer
- MsgBox "La taxe est calculer sur la somme et la taxe (on taxe la taxe)"
- End Select
- End Sub
on obtiendra le résultat suivant :
La taxe est calculer seulement sur la somme
Dernière mise à jour : Lundi, le 19 novembre 2012