Usando um loop rápido para procurar o maior valor em um tipo Enum é útil quando você não quer codificar um valor máximo em seu programa (VB) Visual Basic. Enum é uma forma de enumerar e definir um conjunto de valores nomeados . Os nomes são tratados semelhante às constantes e não pode ser alterado posteriormente . Você pode encontrar o valor máximo do Enum usando o método " [ Enum ] . GetValues " e usando um " For Each" loop para pesquisar os valores ENUM . Instruções 
 1 
 Abra o arquivo VB em um editor como o Microsoft Visual Basic 
 2 
 Declare um Enum e atribuir-lhe valores , adicionando o seguinte código fora de sua função. : 
 
 Public Enum MyEnum 
 
 Bob = 5 
 
 Susan = 11 
 
 Ted = 2 
 
 Erik = 11 
 
 Lisa = 34 
 
 End Enum 
 3 
 Encontre o valor máximo do tipo Enum , adicionando o seguinte código na sua função : 
 
 Dim max As Long = 0 
 
 Dim n As Integer Dim 
 
 isInitial As Boolean = True 
 
 para cada n Em [ Enum ] . GetValues ( GetType ( MyEnum ) ) 
 
 Se isInitial = True Then 
 
 isInitial = False 
 
 max = Se CLng (n ) > max CLng (n ) 
 
 Else 
 
 Então 
 
 max = CLng (n ) 
 
 End If End If 
 
 
 
 Próxima 
 
 A "para cada " loop itera através o tipo Enum , comparando cada valor para o maior encontrado até agora. A função " CLng " converte um número para o tipo "Long" 
 4 
 Mostrar o valor máximo com o código: . 
 
 MessageBox.Show (" Valor máximo Enum =" & max) 
 5 
 Salve o arquivo VB, e compilar e executar o programa para ver o valor máximo Enum .