Aprire il file di VB in un editor come Microsoft Visual Basic
2
Dichiarare un Enum e assegnarlo valori aggiungendo il seguente codice al di fuori la vostra funzione . :
Public Enum MyEnum
Bob = 5
Susan = 11
Ted = 2
Erik = 11 foto
Lisa = 34
End Enum
3
Trova il valore massimo del tipo Enum aggiungendo il seguente codice nella funzione :
Dim max As Long = 0
Dim n As Integer Dim
isInitial As Boolean = True
per ogni n In [ Enum ] . GetValues ( GetType ( MyEnum ) ) per
Se isInitial = True Then
isInitial = False
max = CLng (n ) per
Else
CLng ( n) > max poi
max = CLng (n ) per
End If End If
Avanti
" per ogni" ciclo itera il tipo Enum , confrontando ogni valore alla più grande trovato finora . La funzione " CLng " converte un numero nel tipo "Long "
4
Visualizza il valore massimo con il codice : .
MessageBox.Show ( " Valore massimo Enum = " & max ) economici
5 Salvare il file VB , e compilare ed eseguire il programma per visualizzare il valore massimo Enum .
Programmazione © www.354353.com