'Visual Basic 2008/2010 Shadowing - Shadows Static Typing en Dynamic Binding
Namespace Redefinition
    Class Class1
        Public Overridable Sub Method1()
            Console.WriteLine("Class1.Method1()")
        End Sub
    End Class
    Class Class2 : Inherits Class1
        Public Overrides Sub Method1()
            Console.WriteLine("Class2.Method1()")
        End Sub
    End Class
    Class Class3 : Inherits Class2
        Public Overrides Sub Method1()
            Console.WriteLine("Class3.Method1()")
        End Sub
    End Class
    Class Example
        Public Shared Sub Main()
            Dim object1_1 As Class1 = New Class1
            Dim object1_2 As Class1 = New Class2
            Dim object1_3 As Class1 = New Class3
            Dim object2_2 As Class2 = New Class2
            Dim object2_3 As Class2 = New Class3
            Dim object3_3 As Class3 = New Class3
            '
            object1_1.Method1()
            object1_2.Method1()
            object1_3.Method1()
            object2_2.Method1()
            object2_3.Method1()
            object3_3.Method1()
            '
            Console.ReadLine()
        End Sub
    End Class
End Namespace
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2010 - Alle rechten voorbehouden.