mcs/btests/ConstructorA.vb

   1 Imports System
   2
   3 Class A
   4         public Sub New()
   5         End Sub
   6
   7         public Sub New(name as String)
   8                 if name <> "abc" then
   9                         throw new exception ("#A1, Unexpected result")
  10                 end if
  11         End Sub
  12 End Class
  13
  14 Class B
  15         ' implicitly call base class default ctor
  16         public Sub New()
  17         End Sub
  18 End Class
  19
  20 Module M
  21         Sub Main()
  22                 dim x as A = new A()
  23                 dim y as A = new A("abc")
  24                 dim z as B = new B()
  25         End Sub
  26 End Module