Mega Code Archive

 

Categories / VB.Net / Data Types

 

Use Enum to define Access Level

Imports System Imports System.Diagnostics Public Class MainClass    Public Enum AccessLevel         Clerk         Supervisor         Administrator         User = Clerk         Manager = Supervisor         SysAdmin = Administrator         Superuser = Administrator     End Enum     Shared Sub Main()         Dim access_level As AccessLevel = AccessLevel.SysAdmin         Dim txt As String = access_level.ToString() & vbCrLf         txt &= AccessLevel.Clerk.ToString() & vbCrLf         txt &= AccessLevel.Supervisor.ToString() & vbCrLf         txt &= AccessLevel.Administrator.ToString() & vbCrLf                  Console.WriteLine(txt)     End Sub End Class