Enum-uttrykk [VBA]

Definer opplistingar eller ikkje-UNO konstante-grupper. Ei opplisting er ei verdiliste som lettar programmeringa og gjer gjennomgang av kodelogikken enklare.

warning

Denne funksjonen eller konstanten er tilgjengeleg med uttrykket Option VBASupport 1 sett framføre programkoden i ein modul.


Syntaks:

Enum

Object Statement block

End Enum

Parametrar:

Passar saman verdiar som er logisk samanfalande innføre ei gjeven opplisting.

Eksempel:


       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

Opplista verdiar vert viste som datatypen Long. Basic-funksjonar gjev offentleg tilgang til opplistingar. Opplistingsnamn og verdinamn må vera unike i eit bibliotek og på tvers av modular.


Bruk:

Vis konstante verdiar grupperte av WindowsManager:


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