Instruction Enum [VBA]
Définissez des énumérations ou des groupes de constantes non UNO. Une énumération est une liste de valeurs qui facilite la programmation et l'examen de la logique du code.
Cette constante, fonction ou objet est activé avec l'instruction Option VBASupport 1 placée avant le code exécutable dans un module.
Enum list_name
' Object Statement block
End Enum ' list_nameParamètres :
À l'intérieur d'une énumération donnée, faire correspondre des valeurs qui sont logiquement liées les unes aux autres.
Option VBASupport 1
Private Enum _WindowManager
W1ND0WS = 1 ' Windows
OS2PM = 2 ' OS/2 Presentation Manager
MACINTOSH = 3 ' Macintosh
MOTIF = 4 ' Motif Window Manager / Unix-like
OPENLOOK = 5 ' Open Look / Unix-like
End Enum
Public Function WindowManager() As Object
WindowManager = _WindowManager
End Function ' <library>.<module>.WindowManager.XXX
Les valeurs énumérées sont représentée par le type de donnée Long. Les fonctions Basic sont des accesseurs publics aux énumérations. Les noms d'énumération et les noms de valeurs doivent être uniques au sein d'une bibliothèque et d'un module à l'autre.
Utilisation :
Afficher les valeurs constantes groupées de WindowManager :
Dim winMgr As Object : winMgr = <library>.<module>.WindowManager
With winMgr
Print .MACINTOSH, .MOTIF, .OPENLOOK, .OS2PM, .W1ND0WS
End With
Les énumérations peuvent être étendues à d'autre types de données utilisant les définition de l'instruction Type.Appel de scripts Python à partir de Basic illustre ces mécanismes.