VB.NET - 调用多个构造函数

Question

我是一名c＃开发人员，并没有足够的VB.NET经验。

场景：“构造函数调用只适用在实例构造函数的第一个语句”

Namespace Presenters 
    Public Class BaseFooPresenter 

     ' assuming the public default parameterless constructor 

     Public Sub New(ByVal strvar As String) 
      ' TODO with strvar variabile 
     End Sub 

    End Class 

    Public Class FooPresenter 
      Inherits BaseFooPresenter 

     Public Sub New(ByVal boolvar As Boolean) 
      ' TODO with boolvar variabile 
     End Sub 

     Public Sub New(ByVal boolvar As Boolean, _ 
         ByVal objvar As Object) 
      MyBase.New(String.Empty) 
      Me.New(true) 
      ' TODO with objvar variabile 
     End Sub 

    End Class 
End Namespace 

有了这个代码在第二FooPresenter构造我得到一个错误

在：

  Me.New(true) 

如果我颠倒我得到错误的顺序：

  MyBase.New(String.Empty) 

我可以创建一个方法setValues方法（... ...参数）和调用它两个构造函数，但有人knwos解决方法，以避免此错误？，为什么编译器不验证在重载的构造函数之前调用基础构造函数的可能性？

是否有人知道如何从逻辑上证明无法同时从一个类级构造函数调用基类构造函数和另一个类级构造函数的事实？

Answer 1

的问题是，一旦你指定一个参数的构造函数，参数的构造函数变成私人除非明确你另有规定。

因此，修改ken2K代码：

Namespace Presenters 
    Public Class BaseFooPresenter 

     ' SPECIFYING the protected default parameterless constructor 
     ' can also be public 
     Protected Sub New() 

     End Sub 

     Public Sub New(ByVal strvar As String) 
      ' TODO with strvar variabile 
     End Sub 

    End Class 

    Public Class FooPresenter 
     Inherits BaseFooPresenter 

     Public Sub New(ByVal boolvar As Boolean) 
      MyBase.New() 
      ' TODO with boolvar variabile 
     End Sub 

     Public Sub New(ByVal boolvar As Boolean, _ 
         ByVal objvar As Object) 
      Me.New(boolvar) 
      ' TODO with objvar variabile 
     End Sub 

    End Class 
End Namespace 

Answer 2

你不能像这样调用多个构造函数。就像在C＃中一样，您只能调用一个初始化程序。

Answer 3

就像C#一样，您不能同时拨打this()和base()。 这里是你应该做的：

Namespace Presenters 
    Public Class BaseFooPresenter 

     ' assuming the public default parameterless constructor 

     Public Sub New(ByVal strvar As String) 
      ' TODO with strvar variabile 
     End Sub 

    End Class 

    Public Class FooPresenter 
      Inherits BaseFooPresenter 

     Public Sub New(ByVal boolvar As Boolean) 
      MyBase.New(String.Empty) 
      ' TODO with boolvar variabile 
     End Sub 

     Public Sub New(ByVal boolvar As Boolean, _ 
         ByVal objvar As Object) 
      Me.New(boolvar) 
      ' TODO with objvar variabile 
     End Sub 

    End Class 
End Namespace