Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte VB súbor v editore , ako je napríklad Microsoft Visual Basic
2
deklarovať výpočtový typ a priradiť ho cení pridaním nasledujúceho kódu mimo vašej funkcie . :
Public Enuma MyEnum
Bob = 5
Susan = 11
Ted = 2
Erik = 11
Lisa = 34
End Enuma
3
nájsť maximálnu hodnotu typu enum pridaním nasledujúci kód do vašich funkcie :
Dim max as Long = 0
Dim n as Integer
Dim isInitial as Boolean = true
For Each n V [ enum ] . GetValues ( gettype ( MyEnum ) )
Ak isInitial = True Then
isInitial = False
max = CLng ( n)
Else
Ak CLng ( n) > max potom
max = CLng ( n)
End If
End If
Ďalšie
" pre každý " iteruje typ eNUM , porovnanie každú hodnotu najväčšieho našiel tak ďaleko . Funkcia " CLng " prevádza číslo do " Long " typu