Mega Code Archive
Get Enum values
<![CDATA[
Public Enum Status As Integer
Unknown = -3
Late = -1
OnTime = 0
Early = 1
End Enum
Public Module Example
Public Sub Main()
Dim values = [Enum].GetValues(GetType(Status))
Console.WriteLine("Members of {0}:", GetType(Status).Name)
For Each value In values
Dim status As Status = CType([Enum].ToObject(GetType(Status), value),
Status)
Console.WriteLine(" {0} ({0:D})", status)
Next
End Sub
End Module
]]>