Tutorials Infos - Anleitungen - Hilfe - Dreamcodes
 

Vererbung

Module Vererbung
Sub Main()
Dim a As New A()
Dim b As New B()
Dim c As A
c = New B()
Console.WriteLine(a.Message())
Console.WriteLine(b.Message())
Console.WriteLine(b.Message())
Console.ReadLine()
End Sub
End Module
Public Class A
Public Overridable Function Message() As String
Return "ich bin vom Typ A"
End Function
End Class
Class B
Inherits A
Public Overrides Function Message() As String
Return "ich bin vom Typ B"
End Function
End Class

 
ID: 1932
eingestellt am: 25.01.2010
Autor: Keine Angabe
Status zum lesen: Gast
gelesen: 5460
Webseite: www.dreamcodes.com
[Drucken]