'Visual Basic 2010 Redefinition - Overridable en Overrides Object Oriented Programming
Partial Class Counter
    Public Overrides Function ToString() As String
        ToString = Value.ToString()
    End Function
End Class
Partial Class SpecialCounter
    Public Overrides Function ToString() As String
        ToString = MyBase.ToString() & " - Step : " & StepValue.ToString() ' (1)
    End Function
End Class
Module Example6
    Sub Main()
        Dim counter1 As Counter = New Counter
        Console.WriteLine(counter1.ToString())
        '
        Dim specialCounter1 As SpecialCounter = New SpecialCounter
        Console.WriteLine(specialCounter1.ToString())
        '
        Console.ReadLine()
    End Sub
End Module
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2011 - Alle rechten voorbehouden.