mcs/mbas/Test/tests/ScopeC.vb

   1 'Author:
   2 '   V. Sudharsan (vsudharsan@novell.com)
   3 '
   4 ' (C) 2005 Novell, Inc.
   5
   6 'Cheks if the outer class members can be accessed using an object reference or not... of course works...
   7 Class A
   8         Sub fun(i as Integer)
   9                 System.Console.WriteLine("Outer Integer {0}",i)
  10         End Sub
  11         Sub fun(i as String)
  12                 System.Console.WriteLine("Outer String {0}",i)
  13         End Sub
  14         Class AB
  15                 Sub gun()
  16                         Dim a as A=new A()
  17                         a.fun(1)
  18                         a.fun("Hello")
  19                 End Sub
  20         End Class
  21 End Class
  22
  23 Module ScopeA
  24         Sub Main()
  25                 Dim a as A.AB=new A.AB()
  26                 a.gun()
  27         End Sub
  28 End Module