Mega Code Archive

 

Categories / VB.Net / Language Basics

 

Define and use Const

Imports System Imports System.Diagnostics Public Class MainClass     Public Enum AccessLevel         Clerk         Supervisor         Administrator         User = Clerk         Manager = Supervisor         SysAdmin = Administrator         Superuser = Administrator     End Enum     Private Const MAX_VALUES As Integer = CInt(123.45)     Private Const MASK_READ As Long = &H1000&     Private Const MASK_WRITE As Long = &H2000&     Private Const MASK_READ_WRITE As Long = MASK_READ Or MASK_WRITE     Private Const MAX_ACCESS_LEVEL As AccessLevel = AccessLevel.SuperUser     Shared Sub Main()                  Console.WriteLine("MAX_VALUES:" & MAX_VALUES)         Console.WriteLine("MASK_READ"   & MASK_READ)         Console.WriteLine("MASK_WRITE " & MASK_WRITE)         Console.WriteLine("MASK_READ_WRITE " & MASK_READ_WRITE)         Console.WriteLine("MAX_ACCESS_LEVEL " & MAX_ACCESS_LEVEL)     End Sub End Class