VB.NET代码重构：如何让带参基类构造函数调用无参派生类构造函数

我明白你的需求——你想把派生类带参构造里重复的member2 = arg逻辑移到基类，同时保证派生类的无参构造（用来设置个性化的member1）能被正常执行，对吧？

你当前的代码中，每个派生类的带参构造都重复了“调用自身无参构造+赋值member2”的逻辑，我们可以通过两种方式重构来消除重复，同时保留派生类的个性化初始化逻辑：

方案一：将通用赋值逻辑封装到基类方法 #

这种方式完全保留你原来的构造函数调用链（带参构造先调用无参构造），只是把重复的member2 = arg移到基类的方法中：

Public MustInherit Class B
    Protected member1 As String
    Protected member2 As String

    ' 基类提供通用的member2设置方法
    Protected Sub InitializeMember2(arg As String)
        Me.member2 = arg
    End Sub
End Class

Public Class D1 : Inherits B
    Public Sub New()
        Me.member1 = "D1" ' 派生类个性化初始化
    End Sub

    Public Sub New(arg As String)
        Me.New() ' 先调用自身无参构造完成member1的设置
        MyBase.InitializeMember2(arg) ' 调用基类通用方法，消除重复代码
    End Sub
End Class

Public Class D2 : Inherits B
    Public Sub New()
        Me.member1 = "D2" ' 派生类个性化初始化
    End Sub

    Public Sub New(arg As String)
        Me.New() ' 先调用自身无参构造完成member1的设置
        MyBase.InitializeMember2(arg) ' 调用基类通用方法，消除重复代码
    End Sub
End Class

方案优势： #

• 完全贴合你原有的代码逻辑，不需要改变构造函数的调用顺序
• 通用代码集中在基类，后续新增派生类时只需要调用基类方法即可，避免重复

方案二：调整构造函数链式调用，用基类带参构造处理通用逻辑 #

如果你想更规范地使用构造函数链式调用，可以让基类提供带参构造，同时把派生类的个性化初始化提取到独立方法中，确保所有构造函数都能执行个性化逻辑：

Public MustInherit Class B
    Protected member1 As String
    Protected member2 As String

    ' 基类无参构造
    Protected Sub New()
    End Sub

    ' 基类带参构造，处理通用的member2赋值
    Protected Sub New(arg As String)
        Me.member2 = arg
    End Sub
End Class

Public Class D1 : Inherits B
    Public Sub New()
        MyBase.New()
        SetupDerivedSpecifics()
    End Sub

    Public Sub New(arg As String)
        MyBase.New(arg) ' 先调用基类带参构造设置member2
        SetupDerivedSpecifics() ' 执行派生类个性化初始化
    End Sub

    ' 提取派生类个性化初始化逻辑到独立方法
    Private Sub SetupDerivedSpecifics()
        Me.member1 = "D1"
    End Sub
End Class

Public Class D2 : Inherits B
    Public Sub New()
        MyBase.New()
        SetupDerivedSpecifics()
    End Sub

    Public Sub New(arg As String)
        MyBase.New(arg)
        SetupDerivedSpecifics()
    End Sub

    Private Sub SetupDerivedSpecifics()
        Me.member1 = "D2"
    End Sub
End Class

方案优势： #

• 构造函数职责更清晰：基类负责通用属性初始化，派生类负责个性化属性初始化
• 避免了构造函数之间的嵌套调用，逻辑更直观

关于你提到的“调用基类带参构造时同时调用派生类无参构造”的说明 #

在VB.NET中，构造函数的链式调用只能选择要么调用自身其他构造（Me.New()），要么调用基类构造（MyBase.New()），不能同时调用两者。所以我们通过提取个性化逻辑到独立方法的方式，来实现“既执行派生类个性化初始化，又执行基类通用初始化”的效果，这是.NET构造函数设计下的最优替代方案。

内容的提问来源于stack exchange，提问作者FalcoGer