Énumérations

1. Qu'est-ce qu'une Énumération (Enum) ?

En VB.NET, une énumération (déclarée avec le mot-clé Enum) est un type de données défini par l'utilisateur qui se compose d'un ensemble de valeurs constantes nommées. Elle est utilisée pour créer des groupes de constantes liées de manière logique.

L'utilisation des énumérations rend votre code beaucoup plus lisible et sécurisé. Au lieu d'utiliser des nombres entiers obscurs pour représenter des états (par exemple, 0 pour "En attente", 1 pour "En cours", 2 pour "Terminé"), vous utilisez des noms explicites, ce qui évite les erreurs de saisie et facilite la compréhension du programme.

2. Comment déclarer une Énumération ?

Une énumération se déclare généralement au niveau de la classe ou du module (en dehors des procédures ou fonctions). Voici la syntaxe de base :

Enum JoursSemaine
    Lundi
    Mardi
    Mercredi
    Jeudi
    Vendredi
    Samedi
    Dimanche
End Enum

3. Utiliser une Énumération dans le code

Une fois l'énumération déclarée, vous pouvez l'utiliser comme n'importe quel autre type de variable (comme Integer ou String). Voici comment déclarer une variable de ce type et l'utiliser dans une structure conditionnelle :

' Déclaration et assignation
Dim jourActuel As JoursSemaine = JoursSemaine.Mercredi

' Utilisation avec un Select Case (très pratique !)
Select Case jourActuel
    Case JoursSemaine.Samedi, JoursSemaine.Dimanche
        MessageBox.Show("C'est le week-end !")
    Case Else
        MessageBox.Show("Au travail !")
End Select

4. Les valeurs numériques sous-jacentes

Sous le capot, VB.NET associe un nombre entier (Integer) à chaque élément de l'énumération. Par défaut, le premier élément vaut 0, le deuxième 1, et ainsi de suite. Cependant, vous pouvez parfaitement forcer ces valeurs numériques si votre logique métier l'exige :

Enum NiveauAlerte
    Faible = 1
    Moyen = 5
    Critique = 10
End Enum

5. Conversions et manipulation (Casting)

Il est souvent nécessaire de passer du nom de l'énumération à sa valeur numérique, et inversement (par exemple, lors de la sauvegarde dans une base de données qui ne stocke que des entiers).

• Obtenir la valeur numérique : Utilisez la fonction de conversion CInt().
• Obtenir l'énumération depuis un nombre : Utilisez la fonction CType().

Dim niveau As NiveauAlerte = NiveauAlerte.Critique

' 1. Enum -> Entier (La variable valeur contiendra 10)
Dim valeur As Integer = CInt(niveau)

' 2. Entier -> Enum (Transforme le chiffre 5 en NiveauAlerte.Moyen)
Dim nouveauNiveau As NiveauAlerte = CType(5, NiveauAlerte)

Rédigé et structuré par : Med Khalil Kribi