VB.NET - Gọi nhiều Constructors

Question

Tôi là một nhà phát triển C# và chưa có kinh nghiệm trong VB.NET.

kịch bản:

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 

Với mã này ở các nhà xây dựng FooPresenter thứ hai tôi nhận được một lỗi

"gọi Constructor chỉ có hiệu lực tại báo cáo kết quả đầu tiên trong một constructor dụ."

tại địa chỉ:

  Me.New(true) 

Nếu tôi đảo ngược thứ tự tôi nhận được lỗi tại địa chỉ:

  MyBase.New(String.Empty) 

tôi có thể tạo ra một phương pháp SetValues ​​(... các thông số ...) và gọi nó là từ hai nhà xây dựng nhưng không ai đó knwos một workaround để tránh lỗi này ?, Tại sao trình biên dịch không xác nhận khả năng để gọi các nhà xây dựng cơ bản trước khi xây dựng quá tải ?.

Có ai biết cách biện minh một cách hợp lý thực tế là không thể gọi hàm tạo lớp cơ sở và hàm tạo cấp lớp khác từ một hàm tạo cấp lớp cùng một lúc?

Answer 1

Vấn đề là một khi bạn chỉ định một constructor tham số, các nhà xây dựng parameterless trở thành tin trừ khi rõ ràng quy định khác của bạn.

Vì vậy, thay đổi mã ken2K của:

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

Bạn không thể gọi nhiều nhà thầu như vậy. Cũng giống như trong C# bạn chỉ có thể gọi một bộ khởi tạo.

Answer 3

Cũng giống như với C#, bạn không thể gọi this() và base() cùng một lúc. Đây là những gì bạn nên làm:

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