Išvardijimų sakinys

Turinys

# 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ė:

           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ą.

Susijusios temos

Const sakinys, konstantos

Sakinys Parinktis „VBASupport“

With sakinys

Paremkite mus!