'Visual Basic 2010 Redefinition - Overridable en Overrides Object Oriented Programming
Class Class1
    Public Overridable Function Method1() As String
        Method1 = "Class1.Method1()"
    End Function
End Class
Class Class2 : Inherits Class1
    Public Overrides Function Method1() As String
        Method1 = "Class2.Method1()"
    End Function
End Class
Module Example1
    Sub Main()
        Dim object1 As Class1 = New Class1
        Console.WriteLine(object1.Method1())                               ' (1)
        '
        Dim object2 As Class2 = New Class2
        Console.WriteLine(object2.Method1())                               ' (2)
        '
        Console.ReadLine()
    End Sub
End Module
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2011 - Alle rechten voorbehouden.