mcs/btests/ConditionalCompilation.vb

   1 Imports System
   2 Module ConditionalCompilation
   3         Sub Main()
   4                 Dim value As Integer
   5                 Try
   6                         'Testing #If and #End If Block
   7
   8                         #If True
   9                                value=10
  10                         #End If
  11                         If value<>10 Then
  12                                 Throw New Exception("#A1-Conditional Compilation:Failed ")
  13                         End If
  14                 Catch e As Exception
  15                         Console.WriteLine(e.Message)
  16                 End Try
  17                 Try
  18                         #If False
  19                                 Throw New Exception("#A2-Conditional Compilation:Failed")")
  20                         #End If
  21                 Catch e As Exception
  22                         Console.WriteLine(e.Message)
  23                 End Try
  24
  25         End Sub
  26 End Module
  27