클래스의 속성의 .ToString을 재정의하는 방법

Question

먼저이 항목을 검색했지만 비슷한 게시물이 있지만 답변을 찾을 수 없습니다. :(

내가 클래스가 있다고 가정하자 :. 내가 속성 NumsDrawn의로 .toString를 오버라이드 (override) 할

Public Class ND 
    Private mNumsDrawn = New List(Of Integer) 

    Public Sub New(ByVal vNum As Integer) 
     For i = 1 To vNum 
      mNumsDrawn.Add(0) 
     Next 
    End Sub 

    Public Property NumsDrawn As List(Of Integer) 
     Get 
      Return mNumsDrawn 
     End Get 
     Set(ByVal value As List(Of Integer)) 
      mNumsDrawn = value 
     End Set 
    End Property 
End Class 

을

내가 그 클래스의로 .toString 재정을 넣어 그 단지 오버라이드 (override)하는 경우 물론 클래스 '로 .toString는. 나는 목록에 출력에 모든 숫자를이 사용할 수 있지만 나는 무승부로 하나 개의 번호의 출력을 변경하고 싶습니다.

Dim MyDraw = New ND(6) 

MsgBox(MyDraw.ToString) 

하지만 내가 원하는 것은 이 같은 ..

고마워!

Answer 1

난 당신이 정수 유형의 사용자 정의 .ToString() 재정의를 갖고 싶어 이유를 모르겠어요 ...하지만 ...

이 변화하는 것입니다 할 수있는 간단한 방법 당신의 NumsDrawnList(Of Integer)List(Of NumClass) A와 다음 그 클래스에 .ToString를 오버라이드 (override)에서 :

Public Class ND 
    Private mNumsDrawn As List(Of NumClass) = New List(Of NumClass) 

    Public Sub New(ByVal vNum As Integer) 
     For i = 1 To vNum 
      mNumsDrawn.Add(New NumClass(0)) 
     Next 
    End Sub 

    Public Property NumsDrawn As List(Of NumClass) 
     Get 
      Return mNumsDrawn 
     End Get 
     Set(ByVal value As List(Of NumClass)) 
      mNumsDrawn = value 
     End Set 
    End Property 
End Class 

Public Class NumClass 
    Public Property Value As Integer 
    Public Sub New(value As Integer) 
     Me.Value = value 
    End Sub 
    Public Overrides Function ToString() As String 
     Return "Here is my formatted value: " & Me.Value 
    End Function 
End Class 

사용법 :

Dim myND As New ND(99) 
    Debug.WriteLine(myND.NumsDrawn(6).ToString()) 'outputs:- Here is my formatted value: 0 

Answer 2

ToString() 메서드를 ND으로 재정의하는 것이 좋습니다. 이것이 가능하지만 IMO는별로 도움이되지 않습니다.

ND에 확장 방법을 정의하는 것이 더 도움이 될 것입니다. 확장 메서드는 Public Module (사실상 정적 클래스 임)에 배치해야합니다.

여전히 재정 ToString 방법을 원하는 경우

<Extension> 
Public Function ToFormattedValue(instance As ND, index As Integer) As String 
    Return instance.NumsDrawn(index).ToString() 
End Function 

' Use as: 
MessageBox.Show(MyDraw.ToFormattedValue(1)) 

이 코드는 거의 동일합니다 다음과 같이

이

수행 할 수 있습니다. 오버로드를 추가하는 것보다는 실제로 오버라이드하는 것이 아닙니다. 이처럼 :

Public Class ND 
    ' Other code here 
    Public Function ToString(index as Integer) As String 
     Return Me.NumsDrawn(1).ToString 
    End Function 
End Class