Hvordan finne Maksimal Enum på VB

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 å hardkode en maksimal verdi i Visual Basic (VB) program. Enum er en måte å nummerere 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 en "for hver" loop for å søke gjennom enum verdier.

Bruksanvisning

1 Åpne din VB-filen i et redigeringsprogram, for eksempel Microsoft Visual Basic.

2 Erklærer en Enum og tilordne det verdier ved å legge til følgende kode utenfor funksjonen:

Offentlig Enum MyEnum

Bob = 5

Susan = 11

Ted = 2

Erik = 11

Lisa = 34

slutt Enum

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

Dim max så lenge = 0

Dim n As Integer

Dim isInitial Som Boolsk = sant

For hver n I [Enum] .GetValues ​​(getType (MyEnum))

Hvis isInitial = True Deretter

isInitial = False

max = CLng (n)

Ellers

Hvis CLng (n)> max Deretter

max = CLng (n)

Slutt om

Slutt om

neste

"For hver" løkke gjentas gjennom Enum type, sammenligner hver verdi til det største funnet så langt. Den "CLng" funksjonen konverterer et tall til "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.