Ved hjelp av en rask løkke for å søke etter den største verdien i en Enum typen er nyttig når du ikke ønsker å hard- kode en maksimal verdi i Visual Basic ( VB ) program . Enum er en måte å spesifisere og definere et sett med navngitte verdier. Navnene blir behandlet likt konstanter og kan ikke endres senere. Du finner Enum maksimale verdi ved å bruke " [ Enum ] . GetValues ​​"-metoden og bruke et "For hver " loop for å søke gjennom Enum verdier. Instruksjoner
en

Åpne VB -filen i et redigeringsprogram , for eksempel Microsoft Visual Basic
2

Erklærer en Enum og tilordne det verdier ved å legge følgende kode utenfor funksjon din . :

Public Enum MyEnum

Bob = 5

Susan = 11

Ted = 2

Erik = 11
< p > Lisa = 34

End Enum
3

Finn den maksimale verdien av Enum typen ved å legge følgende kode i funksjon din : en

Dim maks som Long = 0

Dim n As Integer

Dim isInitial As Boolean = sant

For hver n I [ Enum ] . GetValues ​​( getType ( MyEnum ) )
p Hvis isInitial = True Deretter

isInitial = False

max = CLng (n )

Else
p Hvis CLng (n ) > maks deretter

max = CLng (n )

End If

End If

Neste

"For hver " loop gjentar gjennom ENUM type, sammenligner hver verdi til det største funnet så langt . Den " CLng "-funksjonen konverterer et tall inn i " Long " type
4

Vis maksimumsverdien med koden : .

MessageBox.Show ("Maksimal Enum value = " & max)
5

Lagre VB -filen , og kompilere og kjøre programmet for å se den maksimale Enum verdi.