1
Abra el archivo de VB en un editor como Microsoft Visual Basic
2
declarar una enumeración y asignarle valores añadiendo el siguiente código fuera de la función. :
Public Enum MyEnum
Bob = 5
Susan = 11
Ted = 2
Erik = 11
< p > Lisa = 34
End Enum
3
Encuentre el valor máximo del tipo Enum añadiendo el siguiente código en su función :
Dim max As Long = 0
n As Integer
isInitial Dim As Boolean = True
For Each n En [ Enum ] . GetValues ( GetType ( MyEnum ))
Si isInitial = True Luego
isInitial = False
max = CLng (n )
demás
Si CLng (n ) > max Entonces
max = CLng (n )
End If End If
Siguiente
" For Each " bucle itera el tipo Enum , comparando cada valor a la más grande encontrado hasta ahora. La función " CLng " convierte un número en el tipo "Long"
4
Muestra el valor máximo con el código : .
MessageBox.Show ( " Valor máximo Enum =" & max)
5
Guarde el archivo VB, y compilar y ejecutar el programa para visualizar el valor máximo Enum .