'Visual Basic 2010 Redefinition - Overridable en Overrides Object Oriented Programming
Class Person
    Public Sub New(ByVal name As String)
        Me.Name = name
    End Sub
    Private m_Name As String
    Public Property Name() As String
        Get
            Name = m_Name
        End Get
        Set(ByVal value As String)
            m_Name = value
        End Set
    End Property
End Class
Class Student : Inherits Person
    Public Sub New(ByVal name As String, ByVal classGroup As String)
        MyBase.New(name)
        Me.ClassGroup = classGroup
    End Sub
    Private m_ClassGroup As String
    Public Property ClassGroup() As String
        Get
            ClassGroup = m_ClassGroup
        End Get
        Set(ByVal value As String)
            m_ClassGroup = value
        End Set
    End Property
    Public Overrides Function ToString() As String                         ' (2)
        ToString = Name & " (" & ClassGroup & ")"
    End Function
End Class
Module Example5
    Public Sub Main()
        Dim person1 As Person = New Person("John")
        Console.WriteLine(person1.ToString())                              ' (1)
        '
        Dim student1 As Student = New Student("Jane", "Visual Basic")
        Console.WriteLine(student1.ToString())                             ' (2)
        '
        Console.ReadLine()
    End Sub
End Module
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2011 - Alle rechten voorbehouden.