如何覆盖类属性的.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，我可以在列表中使用此输出所有的数字，但我想改变一个数字的输出抽奖。

Dim MyDraw = New ND(6) 

MsgBox(MyDraw.ToString) 

但我要的是像这样的东西..

MsgBox(MyDraw.NumsDrawn(1).ToString) 

谢谢！

Answer 1

我不知道为什么你会希望有一个整型定制.ToString()覆盖......但是

一个简单的方法来做到这一点是改变您NumsDrawn从List(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

你要求的是覆盖方法ND。虽然这是可能的，但它并不是真正有用的。

更有用的是在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方法，代码几乎是一样的：

这可以如下完成。它只是增加一个重载并不是真的重写它。就像这样：

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