Wie überschreiben der .ToString einer Eigenschaft in einer Klasse

Question

Ich habe zuerst nach diesem gesucht und es gibt einige ähnliche Beiträge, aber ich konnte meine Antwort nicht finden. :(

Können sagen, ich habe eine Klasse:.

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 

ich das .ToString des Objektes NumsDrawn außer Kraft setzen möge

Wenn ich die .ToString Überschreibung in der Klasse setzte dann seine nur zwingenden die Klasse .ToString natürlich. das kann ich alle Zahlen in der Liste Ausgabe verwenden, aber ich mag die Ausgabe einer Zahl in der Auslosung ändern.

Dim MyDraw = New ND(6) 

MsgBox(MyDraw.ToString) 

aber was ich will, ist etwas wie das ..

MsgBox(MyDraw.NumsDrawn(1).ToString) 

Danke!

Answer 1

Ich bin mir nicht sicher, warum Sie eine benutzerdefinierte .ToString() Überschreibung auf einem Integer-Typen haben möchten ... aber ...

Ein einfacher Weg, dies zu tun zu ändern wäre, Ihre NumsDrawn von einem List(Of Integer) zu einem List(Of NumClass) und dann die .ToString auf dass Klasse außer Kraft setzen:

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 

Verbrauch:

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

Answer 2

Was Sie fordern, ist die ToString() Methode von ND zu überschreiben. Obwohl dies möglich ist, ist es IMO nicht wirklich hilfreich.

Was hilfreicher ist, ist die Definition einer Erweiterungsmethode unter ND. Beachten Sie, dass eine Erweiterungsmethode in eine Public Module platziert werden muss (was effektiv eine statische Klasse ist).

Dies kann wie folgt geschehen:

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

Wenn Sie noch Überschreibung die ToString Methode wollen, der Code ist fast das gleiche. Es ist nicht wirklich außer Kraft gesetzt, nur eine Überladung hinzuzufügen. Wie folgt aus:

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