Bonjour tous le monde,
Je cherche à faire une énumération d'objet ou à minima une énumération de string qui fonctionne comme l'Enum de base mais avec des String, comme ceci :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
     For Each Value As String In MonEnum
            Debug.Print (Value)          ===> Doit afficher : 'Ma valeur 1' puis 'Ma valeur 2'
        Next
Je dois pouvoir accéder aux valeur en utilisant directement le nom de l'énumération :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Debug.print MonEnum.Enum1                 ===> Doit afficher : 'Ma valeur 1'
....etc
Voic ce que j'ai commencé à faire mais ca ne fonctionne pas :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
  Class MonEnum
        ' Enumeration de String :
        Inherits List(Of MonEnum)
        Private Value As String
        'Public Shared ReadOnly List As New List(OfMonEnum)
        Public Shared ReadOnly Enum1 As MonEnum = New MonEnum("Ma valeur 1")
        Public Shared ReadOnly Enum2 As MonEnum = New MonEnum("Ma valeur 2")
 
        Private Sub New(Value As String)
            Me.Value = Value
            Me.Add(New MonEnum(Value))
        End Sub
    End Class