Pernyataan Enumerasi [VBA]

Definisikan enumerasi atau bukan kelompok konstan UNO. enumerasi adalah daftar nilai dimana fasilitas pemrogaman dan rangkuman kemudahan logika kode

warning

This function or constant is enabled with the statement Option VBASupport 1 placed before the executable program code in a module.


Sintaksis:

Enum

Object Statement block

End Enum

Parameter:

Dalam enumerasi yang diberikan, cocokkan nilai-nilai yang secara logis berhubungan satu sama lain.

Contoh:


       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

Disebutkan nilai diberikan ketipe datapanjang. Fungsi dasar adalah pengakses publik ke daftar. Daftar nama dan nama nilai harus unik dengan pustaka dan lintas modul.


Penggunaan:

Tampilan WindowManager mengelompokkan nilai konstan:


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

Const pernyataan, konstan

Option VBASupport statement

With statement