mcs/btests/ConditionalCompilationE.vb

   1 Imports System
   2 Module ConditionalCompilation
   3         Sub Main()
   4                 Dim value As Integer
   5                 'Testing whitespaces between #If
   6                 Try
   7                         #        If True
   8                                 value=50
   9                         #End   If
  10                         If value<>50
  11                                 Throw New Exception("#A1-Conditional Compilation:Failed ")
  12                         End If
  13                 Catch e As Exception
  14                         Console.WriteLine(e.Message)
  15                 End Try
  16
  17       End Sub
  18
  19
  20 #Const A = True
  21 #Const B = False
  22 #If A Then
  23     Sub Z()
  24     End Sub
  25 #Else
  26     Sub W()
  27     End Sub
  28 #End If
  29 #If B Then
  30     Sub X()
  31     End Sub
  32 #Else
  33     Sub Y()
  34     End Sub
  35 #End If
  36
  37 End Module
  38