diff options
Diffstat (limited to 'mcs/btests/DelegateA.vb')
-rw-r--r-- | mcs/btests/DelegateA.vb | 36 |
1 files changed, 0 insertions, 36 deletions
diff --git a/mcs/btests/DelegateA.vb b/mcs/btests/DelegateA.vb deleted file mode 100644 index 53dd2552066..00000000000 --- a/mcs/btests/DelegateA.vb +++ /dev/null @@ -1,36 +0,0 @@ -Imports System - - - -Module M - Delegate Sub SD() - sub f() - End sub - - Public Delegate Function SF(a as integer) as Integer - Public Function f1(a as integer) as Integer - return a - End Function - - Sub Main() - dim d1 as SD - d1 = new SD(AddressOf f) - d1.Invoke() - - 'dim d2 as SD - 'd2 = AddressOf f ''//this invocation is not functional yet - 'd2.Invoke() - - dim d3 as new SD(AddressOf f) - d3.Invoke() - - dim d4 as SF - d4 = new SF(AddressOf f1) - Dim i as Integer = d4.Invoke(10) - if i <> 10 then - Throw new System.Exception ("#A1, Unexpected result") - end if - - - End Sub -End Module |