Πώς να βρείτε τη μέγιστη Enum σε VB

Χρησιμοποιώντας ένα γρήγορο βρόχο για την αναζήτηση για τη μεγαλύτερη τιμή σε έναν τύπο Enum είναι χρήσιμη όταν δεν θέλετε να σκληρό κωδικό μέγιστη τιμή σε Visual Basic σας ( VB ) πρόγραμμα . Enum είναι ένας τρόπος για να απαριθμήσει και να καθορίσει ένα σύνολο που ονομάζεται αξιών . Τα ονόματα αντιμετωπίζονται παρόμοια με σταθερές και δεν μπορεί να αλλάξει στη συνέχεια . Μπορείτε να βρείτε τη μέγιστη τιμή του Enum , χρησιμοποιώντας τη μέθοδο " [ κλικΑπαρίθμηση ] . GetValues ​​» και χρησιμοποιώντας ένα " για κάθε« βρόχο για να αναζητήσετε μέσα από τις αξίες Enum . Οδηγίες
Η

1 Ανοίξτε το αρχείο VB σας σε ένα πρόγραμμα επεξεργασίας όπως το Microsoft Visual Basic 2

να αναγνωρίσει ένα Enum και να ορίσετε τιμές με την προσθήκη του παρακάτω κώδικα έξω από τη λειτουργία σας . :

Δημόσια Enum MyEnum

Bob = 5

Susan = 11

Ted = 2

Erik = 11

Lisa = 34

End Enum
εικόνων 3

Βρείτε τη μέγιστη τιμή του τύπου Enum με την προσθήκη του παρακάτω κώδικα στη λειτουργία σας :

Dim max Όπως Long = 0

Dim n As Integer

Dim isInitial Όπως Boolean = True

For Each n Στο [ κλικΑπαρίθμηση ] . GetValues ​​( gettype ( MyEnum ) )

Αν isInitial = True τότε

isInitial = False

max = CLng (n )

υπόλοιπα

Εάν CLng ( n ) > max Τότε

max = CLng (n )

End If

End If

Επόμενο

Η « Για κάθε " βρόχος επαναλαμβάνει μέσω ο τύπος Enum , συγκρίνοντας κάθε τιμή στο μεγαλύτερο βρεθεί μέχρι τώρα . Η λειτουργία " CLng " μετατρέπει έναν αριθμό στο "Long " τύπου
Η 4

Εμφάνιση τη μέγιστη τιμή με τον κωδικό : .

MessageBox.Show ( « τιμή Μέγιστη Enum =" & max)
5

Αποθηκεύστε το αρχείο VB , και θα συγκεντρώνει και να τρέξει το πρόγραμμα για να δείτε τη μέγιστη τιμή Enum .
Η
εικόνων