mcs/mbas/Test/errors/EventC4.vb

   1 'Author:\r
   2 '   V. Sudharsan (vsudharsan@novell.com)\r
   3 '\r
   4 ' (C) 2005 Novell, Inc.\r
   5 \r
   6 REM LineNo: 25\r
   7 REM ExpectedError: BC30676\r
   8 REM ErrorMessage: 'F' is not an event of 'C'.\r
   9 \r
  10 Imports System\r
  11 \r
  12 Class C\r
  13         Delegate Sub EH()\r
  14         Public Event E as EH\r
  15 \r
  16         Public Sub S()\r
  17                 RaiseEvent E\r
  18         End Sub\r
  19 End Class\r
  20 \r
  21 Class C1\r
  22         dim x as C = new C()\r
  23 \r
  24         sub setHandler()\r
  25                 AddHandler x.F, AddressOf xh\r
  26         end sub\r
  27 \r
  28         sub unsetHandler()\r
  29                 RemoveHandler x.E, AddressOf xh\r
  30         end sub\r
  31 \r
  32         Sub call_S()\r
  33                 x.S()\r
  34         End Sub\r
  35 \r
  36         Sub xh()\r
  37                 Console.WriteLine("event called")\r
  38         End Sub\r
  39 End Class\r
  40 \r
  41 Module M\r
  42         Sub Main()\r
  43                 dim y as new C1\r
  44                 y.setHandler ()\r
  45                 y.call_S()\r
  46                 y.unsetHandler()\r
  47                 y.call_S()\r
  48         End Sub\r
  49 \r
  50 End Module\r