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을 만들어에서 호출 할 수 있습니다 두 생성자가 있지만 누군가가이 오류를 피하기위한 해결 방법을 알고 있습니까? 왜 컴파일러는 오버로드 된 생성자보다 먼저 기본 생성자를 호출 할 가능성을 확인하지 못합니까?

기본 클래스 생성자와 다른 클래스 수준 생성자를 동시에 하나의 클래스 수준 생성자에서 호출 할 수 없다는 사실을 논리적으로 정당화하는 방법을 아는 사람이 있습니까?

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