Enum Statement /text/sbasic/shared/enum.xhp Enum statement constant groups enumerations

Enum Statement [VBA]

Define enumerations or non UNO constant groups. An enumeration is a value list that facilitates programming and eases code logic review.

Enum
Object Statement block
End Enum

Parameters:

Within a given enumeration, fit together values that logically relate to one another.

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 Enumerated values are rendered to Long datatype. Basic functions are public accessors to enumerations. Enumeration names and value names must be unique within a library and across modules.

Usage:

Display WindowManager grouped constant values: Dim winMgr As Object : winMgr = <library>.<module>.WindowManager With winMgr Print .MACINTOSH, .MOTIF, .OPENLOOK, .OS2PM, .W1ND0WS End With

Const statement, constants Option VBASupport statement With statement