Instrucción Enum [VBA]

Definir enumeraciones o grupos constantes no UNO. Una enumeración es una lista de valores que facilita la programación y facilita la revisión de la lógica del código.

Esta función o constante se activa con la instrucción Option VBASupport 1, la cual se coloca antes del código ejecutable del programa en un módulo.

Sintaxis:

Enum

Object Statement block

End Enum

Parámetros:

Dentro de una enumeración, encajan entre sí los valores que lógicamente se relacionan.

Ejemplo:


       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

Los valores enumerados se representan con el tipo de datos Long. Las funciones de Basic tienen acceso público a las enumeraciones. Los nombres de las enumeraciones y de los valores deben ser únicos dentro de una biblioteca y entre los módulos.

Uso:

Mostrar valores constantes agrupados en WindowManager:


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

Instrucción Const, constantes

Instrucción Option VBASupport

With statement