Spiegeln

Module Ueberladen
Sub main()
Dim l(3) As X
l(0) = New X()
l(1) = New Y()
Dim o As Object
For Each o In l
If (TypeOf o Is X) Then
Console.WriteLine("Typ ist X:")
CType(o, X).aktion()
CType(o, X).a3()
End If
If (TypeOf o Is Y) Then
Console.WriteLine("Typ ist Y:")
CType(o, Y).aktion()
CType(o, Y).a3()
End If
Next
Console.WriteLine("---")
CType(l(1), Y).a2()
Console.ReadLine()
End Sub
End Module
Class X
Overridable Sub aktion()
Console.WriteLine("Aktion von X")
End Sub
Sub a2()
MyClass.aktion()
Me.aktion()
End Sub
Sub a3()
Console.WriteLine("A3 von X")
End Sub
End Class
Class Y
Inherits X
Overrides Sub aktion()
Console.WriteLine("Aktion von Y")
End Sub
Overloads Sub a3()
Console.WriteLine("A3 von Y")
MyBase.a2()
End Sub
End Class