mcs/btests/EventI.vb

   1 REM LineNo: 11
   2 REM ExpectedError: BC30269
   3 REM ErrorMessage: Method 'S' has multiple definitions with identical signatures.
   4
   5 Imports System
   6
   7 Class C
   8         Delegate Sub EH()
   9         Public Event E as EH
  10
  11         Public Sub S
  12                 RaiseEvent E
  13         End Sub
  14
  15         Sub xh
  16                 Console.WriteLine("event called")
  17         End Sub
  18
  19         shared sub s
  20         end sub
  21 End Class
  22
  23 Class C1
  24         Inherits C
  25
  26         Delegate Sub EH1()
  27         Public Event E1 as EH1
  28
  29         Sub xh1()
  30                 Console.WriteLine("event called 1")
  31         End Sub
  32
  33         Sub call_S()
  34                 AddHandler MyBase.E, AddressOf MyBase.xh
  35                 MyBase.S()
  36                 RemoveHandler MyBase.E, AddressOf MyBase.xh
  37
  38
  39                 AddHandler Me.E1, AddressOf Me.xh1
  40                 RaiseEvent E1
  41                 RemoveHandler Me.E1, AddressOf Me.xh1
  42         End Sub
  43 End Class
  44
  45 Module M
  46         Sub Main()
  47                 dim y as new C1
  48                 y.call_S()
  49         End Sub
  50
  51 End Module