Mega Code Archive

 

Categories / VB.Net Tutorial / Data Type

 

Cast Integer to Enum value

Public Enum AccessLevel     Clerk     Supervisor     Administrator     User = 0     Manager     SysAdmin     Superuser = SysAdmin End Enum public class Test    public Shared Sub Main         Dim m_AccessLevel As AccessLevel                  Dim integer_value As Integer = 1         m_AccessLevel = CType(integer_value, AccessLevel)         Dim access_level As AccessLevel = AccessLevel.Clerk         Console.WriteLine(access_level.ToString())         End Sub End class Clerk