Met behulp van een snelle loop te zoeken naar de grootste waarde in een Enum type is nuttig als u niet wilt dat hard- code een maximale waarde in uw Visual Basic ( VB ) -programma . Enum is een manier om op te noemen en definiëren een set genaamd waarden . De namen zijn vergelijkbaar met constanten behandeld en kan later niet worden gewijzigd . U kunt maximale waarde van de Enum 's vinden met behulp van de " [ Enum ] GetValues . " Methode en het gebruik van een "voor elk " loop te zoeken door middel van de Enum waarden . Instructies
1 Open uw VB -bestand in een editor zoals Microsoft Visual Basic kopen van 2 Verklaar een Enum en wijs deze waarden door het toevoegen van de volgende code buiten uw functie . :
Public Enum MyEnum
Bob = 5
Susan = 11 Ted
= 2 Erik
= 11 & Lisa = 34 End Enum
3 Heb je de maximale waarde van het type Enum door toevoeging van de volgende code in je functie : Dim max
As Long = 0 Dim n
als Geheel Dim isInitial
As = True
voor Elke n In [ Enum ] . GetValues ( GetType ( MyEnum ) ) op Boolean Als = Waar toen
= False max = CLng ( n ) op
Else
Als CLng ( n ) > max isInitial isInitial dan max = CLng ( n ) Eind
Als End
Als
Volgende
" Voor elk " loop verwerkt het type Enum , elke waarde te vergelijken met de grootste tot nu toe gevonden . De functie " CLng " maakt van een getal van het type " Long "
4 Geef de maximale waarde van de code : . MessageBox.Show
( "Maximum Enum value = " & max )
5 Sla het VB -bestand , en compileren en uitvoeren van het programma om de maximale waarde Enum bekijken .
|
