Med en snabb slinga för att söka efter det största värdet i en Enum typ är användbart när du inte vill hårdkoda ett maximalt värde i ditt Visual Basic ( VB ) program . ENUM är ett sätt att räkna och definiera en uppsättning namngivna värden . Namnen behandlas lika konstanter och kan inte ändras senare . Du hittar Enum maximala värde genom att använda " [ Enum ] . GetValues " metoden och använder en " För varje " slinga för att söka igenom ENUM värden . Instruktioner
1
Öppna din VB -filen i en editor som Microsoft Visual Basic
2
Deklarera en ENUM och tilldela den värdena genom att lägga till följande kod utanför funktionen . :
offentliga Enum MyEnum
Bob = 5
Susan = 11
Ted = 2 Review
Erik = 11
Lisa = 34
End Enum
3
Hitta det högsta värdet av Enum typen genom att lägga till följande kod i din funktion :
Dim max Så länge = 0
Dim n As Integer
Dim isInitial As Boolean = Sant
För varje n I [ Enum ] . GetValues ( getType ( MyEnum ) ) katalog p Om isInitial = sant då
isInitial = False
max = CLng ( n ) katalog
Else
p Om CLng ( n ) > max sedan
max = CLng ( n ) katalog
End If
End If
Nästa
" För varje " slinga itererar genom ENUM typ , jämför varje värde till största hittat hittills . Den " CLng " -funktionen konverterar ett tal till " Long " typ
4
Visa det högsta värdet med koden : .
MessageBox.Show ( " Maximum Enum value = " & max )
5
Spara VB filen och kompilera och köra programmet för att visa den högsta Enum värde .
