mcs/mbas/Test/errors/DelegateC3.vb

   1 'Author:
   2 '   V. Sudharsan (vsudharsan@novell.com)
   3 '
   4 ' (C) 2005 Novell, Inc.
   5
   6 REM LineNo: 23
   7 REM ExpectedError: BC30408
   8 REM ErrorMessage: Method 'Public Function f(ByRef i As Integer) As Integer' does not have the same signature as delegate 'Delegate Function SD(i As Integer) As Integer'.
   9
  10 Imports System
  11
  12 Module M
  13         Delegate Function SD(Byval i as Integer)as Integer
  14         Function f(ByRef i as integer)as Integer
  15                 return 10
  16         End Function
  17         Function f(Byval i as Single)as Integer
  18                 return 12
  19         End Function
  20
  21         Sub Main()
  22                 dim d1 as SD
  23                 d1= new SD(AddressOf f)
  24                 d1.Invoke(10)
  25         End Sub
  26 End Module