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