'Visual Basic 2010 Redefinition - Overridable en Overrides Object Oriented Programming
Class Class3
    Public Overridable Function Method1() As String
        Method1 = "Class3.Method1()"
    End Function
    Public Overridable Function Method1(ByVal argument As String) As String
        Method1 = "Class3.Method1(" & argument & ")"
    End Function
End Class
Class Class4 : Inherits Class3
    Public Overrides Function Method1() As String ' (1)
        Method1 = "Class4.Method1()"
    End Function
    Public NotOverridable Overrides Function Method1(ByVal argument As String) _
                                                                       As String
        Method1 = "Class4.Method1(" & argument & ")"
    End Function
    Public Overloads Function Method1(ByVal argument1 As String, _
                                      ByVal argument2 As String) As String
        Method1 = "Class4.Method1(" & argument1 & "," & argument2 & ")"
    End Function
End Class
Class Class5 : Inherits Class4
    Public Overrides Function Method1() As String
        Method1 = "Class5.Method1()"
    End Function
End Class
Module Example2
    Sub Main()
        Dim object1 As Class3 = New Class3
        Console.WriteLine(object1.Method1())
        Console.WriteLine(object1.Method1("test"))
        '
        Dim object2 As Class4 = New Class4
        Console.WriteLine(object2.Method1())
        Console.WriteLine(object2.Method1("test"))
        Console.WriteLine(object2.Method1("test1", "test2"))
        '
        Dim object3 As Class5 = New Class5
        Console.WriteLine(object3.Method1())
        Console.WriteLine(object3.Method1("test"))
        Console.WriteLine(object3.Method1("test1", "test2"))
        '
        Console.ReadLine()
    End Sub
End Module
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2011 - Alle rechten voorbehouden.