mcs/btests/ConditionalConstants.vb

   1 Imports System
   2 Module ConditionalConstants
   3         Sub Main()
   4                 Dim value As Integer
   5                 #Const A=True
   6                 #If A
   7                         value=10
   8                 #End If
   9
  10                 #Const B=False
  11                 #If B
  12                         value=20
  13                 #End If
  14                 If value<>10 Then
  15                         Throw New Exception("Conditional Constant: Failed")
  16                 End If
  17
  18                 'Testing the default value assigned to a conditional constant
  19                 #Const C
  20                 #If C
  21                         Console.WriteLine("Default value is True")
  22                 #Else
  23                         Console.WriteLine("Default value is Nothing")
  24                 #End If
  25         End Sub
  26 End Module