在VB.NET中处理构造函数时值得注意的两个陈述‏

在VB.NET中处理构造函数时，有两个陈述值得注意：

　　(1) 如果类型不包含任何实例构造函数声明，则VB.NET提供默认的构造函数；
　　默认参数调用直接基类的无参数构造函数。如果基类没有可访问的无参数构造函数，则发生编译期错误。

　　(2) 构造函数不能继承；

　　陈述（1）包含两个方面的信息：①是如果类型不包含任何实例构造函数声明，则VB.NET提供默认的构造函数，即下面的声明是允许的，在类Shape中我们没有显式声明任何构造函数，但是我们仍然可以通过VB.NET自动提供的无参数构造函数New()来实例化类；

Module TestModule Test
    Public Sub Main()Sub Main()
        Dim shape1 As Shape = New Shape
    End Sub
End Module

Public Class ShapeClass Shape
    Public Sub Draw()Sub Draw()
        'some codes here.
    End Sub
End Class

　　②是如果类型中包含有实例构造函数的声明，那么VB.NET不再提供默认的构造函数，例如，我们在类Shape中添加了一个带参数的构造函数，

Public Class ShapeClass Shape
    Private _pt As Point
    Public Sub New()Sub New(p As Point)
        _pt = p
    End Sub
    Public Sub Draw()Sub Draw()
        'some codes here.
    End Sub
End Class

　　那么，如果直接实例化类时，则会产生错误；

    Dim shape1 As Shape = New Shape

　　只能通过调用Shape类中显式声明的带参数的构造函数来实例化类，如下，

    Dim shape1 As Shape = New Shape(New Point(0, 0))

　　因此，如果要在类中同时使用无参数和带参数的构造函数，必须同时显式地声明两种构造函数。

Public Class ShapeClass Shape
    Private _pt As Point
    Public Sub New()Sub New()
        'some codes here.
    End Sub
    Public Sub New()Sub New(p As Point)
        _pt = p
    End Sub
    Public Sub Draw()Sub Draw()
        'some codes here.
    End Sub
End Class

　　陈述（２），构造函数不能继承，即，如果要使子类与基类有相同的构造函数，那么必须在每个子类中都显式的声明与基类构造相同的构造函数，例如：

Public MustInherit Class ShapeClass Shape
    Private _pt As Point
    Public Sub New()Sub New()
        'some codes here.
    End Sub
    Public Sub New()Sub New(p As Point)
        _pt = p
    End Sub
    Public MustOverride Sub Draw()Sub Draw()
End Class

Public Class LineClass Line
    Inherits Shape
    Public Sub New()Sub New()
    End Sub
    Public Sub New()Sub New(p As Point)
        MyBase.New(p)
    End Sub
    Public Overrides Sub Draw()Sub Draw()
        'some codes here.
    End Sub
End Class

　　这一点非常重要而且也很有意义。因为我们往往倾向于认为子类继承了基类所有的属性和方法，这往往导致我们的程序出现编译错误。

　　综合以上两个陈述，在实际编程中应遵循一个原则：在类中，无论是基类还是子类，显式地声明所有需要的无参数或带参数构造函数。遵循这个原则，既有利于提高编译正确代码的速度，也有利于自己和其他程序员理解代码。