Zitat:

Eine "Expression" ist KEINE Instanz eines Objekts, sie wird nur als Objektparameter an die Format-Methode übergeben - und erst dort ausgewertet (konvertiert und formatiert). Diese Expression kann eine Zeichenfolge oder einen numerischen Wert ergeben. Die in Double enthaltene Methode "ToString" greift auf den aktuellen Wert der Structure-Instanz zu (was z.B. das Resultat einer Expression sein kann), den sie konvertiert und formatiert.

    Public Structure Auto
        Public Bezeichnung As String
        Public Farbe As String
    End Structure
 
    Public Structure Film
 
        Public Bezeichnung As String
        Public Regisseur As String
    End Structure
 
    Public Shared Function FormatMyObj(obj As Object) As String
        If TypeOf obj Is Auto Then
            Dim auto As Auto = DirectCast(obj, Auto)
            Return "Dies ist das Auto " + auto.Bezeichnung + " in der Farbe " + _
              auto.Farbe + "."
        ElseIf TypeOf obj Is Film Then
            Dim film As Film = DirectCast(obj, Film)
            Return "Dies ist der Film  " + film.Bezeichnung + " vom Regisseur " _
              + film.Regisseur + "."
        Else
            Throw New ArgumentException("obj ist nicht vom Typ Auto oder Film.")
        End If
    End Function

    Public Interface IMyFormattable
        Function Format() As String
    End Interface
 
    Public Structure Auto
        Implements IMyFormattable
 
        Private Bezeichnung As String
        Private Farbe As String
 
        Public Function Format() As String Implements IMyFormattable.Format
            Return "Dies ist das Auto " + Bezeichnung + " in der Farbe " + _
              Farbe + "."
        End Function
    End Structure
 
    Public Structure Film
        Implements IMyFormattable
 
        Private Bezeichnung As String
        Private Regisseur As String
 
        Public Function Format() As String Implements IMyFormattable.Format
            Return "Dies ist der Film  " + Bezeichnung + " vom Regisseur " + _
              Regisseur + "."
        End Function
    End Structure