mcs/btests/ConstructorC.vb

   1 Imports System
   2
   3 Class A
   4         public shared x as integer = 10
   5
   6         Shared Sub New()
   7                 Console.WriteLine("Shared ctor")
   8         End Sub
   9
  10         public Sub New()
  11                 Console.WriteLine("ctor")
  12         End Sub
  13
  14 End Class
  15
  16 Class B
  17         inherits A
  18
  19         public shared y as integer = 20
  20         public z as integer = 30
  21
  22         Shared Sub New()
  23                 Console.WriteLine("Shared ctor in derived class")
  24         End Sub
  25
  26         public Sub New()
  27                 Console.WriteLine("ctor in derived class")
  28         End Sub
  29
  30         Shared Sub f()
  31                 Console.WriteLine("f")
  32         end sub
  33
  34
  35 end class
  36
  37 Module M
  38         Sub Main()
  39                 B.y = 25
  40                 Console.WriteLine(B.y)
  41                 Console.WriteLine(A.x)
  42                 dim c as new B()
  43                 Console.WriteLine(c.z)
  44         End Sub
  45 End Module