Περιεχόμενα
Δείκτης 🔎︎

# Πρόταση Enum [VBA]

Καθορισμός απαριθμήσεων ή μη σταθερών ομάδων UNO. Απαρίθμηση είναι κατάλογος τιμών που διευκολύνει τον προγραμματισμό και την λογική επιθεώρηση του κώδικα.

Αυτή η λειτουργία ή σταθερά ενεργοποιείται με την πρόταση Option VBASupport 1 τοποθετημένη πριν από τον εκτελέσιμο κώδικα του προγράμματος σε ένα άρθρωμα.

### Σύνταξη:

Enum

Object Statement block

End Enum

## Παράμετροι:

Σε δεδομένη απαρίθμηση, συνδέστε τις τιμές που σχετίζονται λογικά μεταξύ τους.

### Παράδειγμα:

           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

Απαριθμημένες τιμές αποδίδονται με τύπο δεδομένων Long. Οι συναρτήσεις Basic είναι στοιχεία πρόσβασης σε απαριθμήσεις. Τα ονόματα των απαριθμήσεων και τα ονόματα τιμής πρέπει να είναι μοναδικά μέσα σε βιβλιοθήκη και μεταξύ των αρθρωμάτων.

## Χρήση:

Εμφάνιση του WindowManager με ομαδοποιημένες σταθερές τιμές:

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

Σχετικά θέματα

Δήλωση Const, σταθερές

Δήλωση Option VBASupport

Δήλωση With