constructors2.vb

来自「大名鼎鼎的mono是.NET平台的跨平台（支持linux」· VB 代码 · 共 18 行

'Test classes with constructors
Class Constructors2
    Class Test3
        Inherits System.Object

        Sub New(ByVal Test1 As String)
        End Sub
    End Class

    Class Test4
        Inherits Test3

        Sub New(ByVal Test1 As String)
            MyBase.New(Test1)
        End Sub
    End Class

End Class