如何在类中覆盖属性的.ToString方法

Question

如何在类中覆盖属性的.ToString方法

.netvb.netpropertiestostringoverriding

3

我首先进行了搜索，发现有一些类似的帖子，但是我没有找到我的答案。 :(

假设我有一个类：

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)

谢谢！

- Konrad

1

MyDraw.NumsDrawn(1).ToString() 有什么问题？ - Alex B.

你需要从List(Of T)派生出自己的类。这是可能的。但是为什么你想将参数传递给NumsDrawn却很难猜测。 - Hans Passant

我之前实际上没有使用过列表，都是用数组的。我在传递参数给Numsdrawn New，因为大小需要设置，并且每次使用可能不同，但之后就不会再改变了。我可能会回到使用数组，因为我对它们更熟悉，并且一旦设置了数字，它们就不会再改变。ND类也只是一个更大类的子类，我尽量简化问题。我的主要问题不仅仅是.ToString，更多的是如何在类中创建一个属性的方法。我会尝试创建另一个类并看看情况如何，谢谢！ - Konrad

Alex，我想覆盖NumsDrawn().ToString方法，以便我可以用零填充整数。但更一般的问题是如何在类中创建一个属性的方法（可能不是正确的措辞）。类似于MyDraw.NumsDrawn(1).MyRoutine这样的东西。我放在ND类中的任何内容都将变成Mydraw.MyRoutine。 - Konrad

2个回答

2

你要求的是重写ND类的ToString()方法。虽然这是可能的，但我认为这并不是很有用。

更有帮助的是在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

- Ric .Net

谢谢，昨晚我也看了Extension，但没有选择它。我认为两者的问题都在于访问字符串的代码再次出现在类中。虽然它可以工作，但似乎不太直观。如果可能的话，我真的想访问属性的tostring，例如MyDraw.NumsDrawn(1).ToString。昨晚我通过为Number创建另一个类来使其正常工作，但是随之出现了两个问题。我不能再很容易地使用整数来进行NumsDrawn，并且当我尝试进行新的例程以初始化NumsDrawn时，它现在会在表单中抛出异常。 - Konrad

我会查找扩展名，但是你的示例看起来与为ND类创建方法的结果相同？ - Konrad

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- Matt Wilko · Accepted Answer

我不确定为什么你想在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