クラス内のプロパティの.ToStringをオーバーライドする方法

Question

私はこれを最初に検索しましたが、同様の記事がありますが、私の答えは見つかりませんでした。 :(

は、私は、クラスを持っているとしましょう：。

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 

私は財産NumsDrawnの.ToStringを上書きしたい

私はそのだけのオーバーライド、クラスに.ToStringオーバーライドを置く場合もちろん、クラスの.ToString。私は出力にリスト内のすべての数字を、これを使用することができますが、私は引き分けで1数の出力を変更したい。

Dim MyDraw = New ND(6) 

MsgBox(MyDraw.ToString) 

しかし、私がしたいですこのようなもの..

MsgBox(MyDraw.NumsDrawn(1).ToString) 

ありがとう！

Answer 1

...しかし...

これを実行するための簡単な方法が変更に次のようになります。このようなあなたのNumsDrawnList(Of Integer)List(Of NumClass)にして、そのクラスに.ToStringを上書きから：

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（事実上静的クラス）に配置する必要があることに注意してください。次のように

これは行うことができます。

<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)) 

それでもオーバーライドコードはほぼ同じであるToString方法にしたい場合。オーバーロードを追加するだけでは実際にはオーバーライドしていません。私はあなたが整数型のカスタム.ToString()オーバーライドを持ってしたいと思う理由はわからない

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