'Visual Basic 2010 Redefinition en Method Overloading Static Typing en Dynamic Binding
Namespace WithOverloading
    Class ClassA
    End Class
    Class ClassB : Inherits ClassA
    End Class
    '
    Class Class1
        Public Overridable Sub Test(ByVal classA As ClassA)
            Console.WriteLine("C1-CA")
        End Sub
    End Class
    Class Class2 : Inherits Class1
        Public Overrides Sub Test(ByVal classA As ClassA)
            Console.WriteLine("C2-CA")
        End Sub
        Public Overloads Sub Test(ByVal classB As ClassB)
            Console.WriteLine("C2-CB")
        End Sub
    End Class
    '
    Class Example
        Public Shared Sub Main()
            Dim objectB As ClassB = New ClassB
            Dim objectA As ClassA = objectB
            '
            Dim object2 As Class2 = New Class2
            Dim object1 As Class1 = object2
            '
            object1.Test(objectA)
            object1.Test(objectB)
            object2.Test(objectA)
            object2.Test(objectB)
            '
            Console.ReadLine()
        End Sub
    End Class
End Namespace
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2011 - Alle rechten voorbehouden.