mcs/mbas/Test/errors/ScopeC3.vb

   1 'Author:
   2 '   V. Sudharsan (vsudharsan@novell.com)
   3 '
   4 ' (C) 2003 Ximian, Inc.
   5
   6 REM LineNo: 23
   7 REM ExpectedError: BC30469
   8 REM ErrorMessage: Reference to a non-shared member requires an object reference.
   9
  10 REM LineNo: 24
  11 REM ExpectedError: BC30469
  12 REM ErrorMessage: Reference to a non-shared member requires an object reference.
  13
  14 Class A
  15         Sub fun(i as Integer)
  16                 System.Console.WriteLine("Outer Integer {0}",i)
  17         End Sub
  18         Sub fun(i as String)
  19                 System.Console.WriteLine("Outer String {0}",i)
  20         End Sub
  21         Class AB
  22                 Sub gun()
  23                         fun(1)          'Only Shared functions can be accessed by inner class... error
  24                         fun("Hello")    'Only Shared functions can be accessed by inner class... error
  25                 End Sub
  26         End Class
  27 End Class
  28
  29 Module ScopeA
  30         Sub Main()
  31                 Dim a as A.AB=new A.AB()
  32                 a.gun()
  33         End Sub
  34 End Module