Enum 语句 [VBA]

定义枚举或非 UNO 常量组。枚举是值的列表, 可方便编程并简化代码逻辑检查。

This constant, function or object is enabled with the statement Option VBASupport 1 placed before the executable program code in a module.

语法:

Enum syntax


       Enum list_name
           ' Object Statement block
       End Enum ' list_name

参数:

在给定的枚举中, 将逻辑上相互关联的值组合在一起。

示例:


       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

枚举值将呈现为「Long」数据类型。Basic 函数是枚举的公共访问器。枚举名称和值的名称在库中和模块之间必须是唯一的。

用法:

显示 WindowManager 分组常量值:


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

Enumerations can be extended to other data types using Type statement definitions. Calling Python Scripts from Basic illustrates that mechanism.

Const 语句, 常量

Option VBASupport 语句

With 语句