如何覆盖类中属性的 .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

您要求的是覆盖ND 的ToString() 方法。尽管这是可能的，但 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 方法，代码几乎相同。它并没有真正覆盖它，只是添加了一个重载。像这样：

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

Answer 2

我不确定您为什么要在 Integer 类型上使用自定义 .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