Anweisung Enum [VBA]
Aufzählungen oder Nicht-UNO-Konstantengruppen definieren. Eine Aufzählung ist eine Werteliste, die die Programmierung erleichtert und die Überprüfung der Codelogik erleichtert.
Diese Konstante, diese Funktion oder dieses Objekt wird durch Platzierung der Anweisung Option VBASupport 1 vor dem auszuführenden Programmcode des Moduls aktiviert.
Enum list_name
' Object Statement block
End Enum ' list_name
Parameter:
Innerhalb einer bestimmten Aufzählung Werte anpassen, die sich logisch aufeinander beziehen.
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
Aufzählungswerte werden in den Datentyp Long gerendert. Grundfunktionen sind öffentliche Zugriffe auf Aufzählungen. Aufzählungsnamen und Wertnamen müssen innerhalb einer Bibliothek und über Module hinweg eindeutig sein.
Verwendung:
Gruppierte Konstantenwerte von WindowManager anzeigen:
Dim winMgr As Object : winMgr = <library>.<module>.WindowManager
With winMgr
Print .MACINTOSH, .MOTIF, .OPENLOOK, .OS2PM, .W1ND0WS
End With
Aufzählungen können mit auf andere Datentypen erweitert werden, indem Type statement Definitionen verwendet werden. Aufrufen von Python-Skripten aus Basic veranschaulicht diesen Mechanismus.
