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 :
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
3 For Each Value As String In MonEnum Debug.Print (Value) ===> Doit afficher : 'Ma valeur 1' puis 'Ma valeur 2' Next
Voic ce que j'ai commencé à faire mais ca ne fonctionne pas :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2Debug.print MonEnum.Enum1 ===> Doit afficher : 'Ma valeur 1' ....etc
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
Partager