mcs/btests/DelegateA.vb

   1 Imports System
   2
   3
   4
   5 Module M
   6         Delegate Sub SD()
   7         sub f()
   8         End sub
   9
  10         Public Delegate Function SF(a as integer) as Integer
  11         Public Function f1(a as integer) as Integer
  12                 return a
  13         End Function
  14
  15         Sub Main()
  16                 dim d1 as SD
  17                 d1 = new SD(AddressOf f)
  18                 d1.Invoke()
  19
  20                 'dim d2 as SD
  21                 'd2 = AddressOf f  ''//this invocation is not functional yet
  22                 'd2.Invoke()
  23
  24                 dim d3 as new SD(AddressOf f)
  25                 d3.Invoke()
  26
  27                 dim d4 as SF
  28                 d4 = new SF(AddressOf f1)
  29                 Dim i as Integer = d4.Invoke(10)
  30                 if i <> 10 then
  31                         Throw new System.Exception ("#A1, Unexpected result")
  32                 end if
  33
  34
  35         End Sub
  36 End Module