mcs/btests/EventG.vb

   1 Imports System
   2
   3 Class C
   4         Delegate Sub EH()
   5         Public Event E as EH
   6
   7         Public Sub S()
   8                 RaiseEvent E
   9         End Sub
  10 End Class
  11
  12 Class C1
  13         dim x as C = new C()
  14
  15         sub setHandler()
  16                 AddHandler x.E, AddressOf xh
  17         end sub
  18
  19         sub unsetHandler()
  20                 RemoveHandler x.E, AddressOf xh
  21         end sub
  22
  23         Sub call_S()
  24                 x.S()
  25         End Sub
  26
  27         Sub xh()
  28                 Console.WriteLine("event called")
  29         End Sub
  30 End Class
  31
  32 Module M
  33         Sub Main()
  34                 dim y as new C1
  35                 y.setHandler ()
  36                 y.call_S()
  37                 y.unsetHandler()
  38                 y.call_S()
  39         End Sub
  40
  41 End Module