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.

warning

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 list_name
           ' Object Statement block
       End Enum ' list_name
    

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
    
note

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
    
tip

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


Instrucción Const, constantes

Instrucción Option VBASupport

With statement

¡Necesitamos su ayuda!