Išvardijimų sakinys [VBA]

Aprašykite išvardijimų arba UNO konstantų grupes. Išvardijimas yra reikšmių sąrašas, palengvinantis programavimą ir kodo logikos sandarą.

Ši konstanta, funkcija arba objektas yra įjungiami su sakiniu Parinktis „VBASupport 1“ įdedama prieš vykdomos programos kodą modulyje.

Sintaksė:

Išvardijimų sintaksė


       Enum list_name
           ' Object Statement block
       End Enum ' list_name

Parametrai:

Išvardijinų sąraše surašykite reikšmes, kurios logiškai susijusios viena su kita.

Pavyzdys:


       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

Išvardijamos reikšmės pateikiamos Ilgasis duomenų tipui. Pagrindinės funkcijos viešai prieina prie išvardijimų. Išvardijimų vardai ir reikšmių pavadinimai bibliotekoje ir moduliuose turi būti unikalūs.

Naudojimas:

Rodyti „WindowManager“ sugrupuotas konstantų reikšmės:


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

Išvardijimai gali būti išplėsti į kitus duomenų tipus naudojant Tipo sakinys apibrėžimą. Kreipinys iš „Basic“ į „Python“ skriptus iliustruoja šį mechanizmą.

Const sakinys, konstantos

Sakinys Parinktis „VBASupport“

With sakinys