Istruzione Enum [VBA]

Definisce le enumerazioni o i gruppi di costanti non UNO. Un'enumerazione è un elenco di valori che facilita la programmazione e rende semplice la revisione logica del codice.

warning

Questa funzione o costante viene abilitata con l'istruzione Option VBASupport 1 posizionata prima del codice eseguibile del programma all'interno del modulo.


Sintassi:

Enum

Object Statement block

End Enum

Parametri:

All'interno di un'enumerazione specificata, sistema insieme i valori che si relazionano logicamente uno all'altro.

Esempio:


       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

I valori enumerati sono resi col tipo Long. Le funzioni Basic sono metodi di accesso pubblici alle enumerazioni. I nomi delle enumerazioni e i nomi dei valori devono essere univoci all'interno di una libreria e tra i moduli.


Uso:

Mostra i valori raggruppati delle costanti WindowManager:


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

Istruzione Const, costanti

Istruzione Option VBASupport

Istruzione With