'Visual Basic 2010 Constructoren - New Object Oriented Programming
Class Teacher : Inherits Person
    Public Sub New(ByVal name As String)
        MyBase.New(name)
    End Sub
    Public Sub New(ByVal name As String, ByVal course As String)
        Me.New(name)
        Me.Course = course
    End Sub
    Private m_Course As String
    Public Property Course() As String
        Get
            Course = m_Course
        End Get
        Set(ByVal value As String)
            m_Course = value
        End Set
    End Property
End Class
Module Client4
    Sub Main()
        Dim teacher1 As Teacher = New Teacher("John")
        Console.WriteLine(teacher1.Name)
        Console.WriteLine(teacher1.Course)
        '
        Dim teacher2 As Teacher = New Teacher("Jane", "Visual Basic")
        Console.WriteLine(teacher2.Name)
        Console.WriteLine(teacher2.Course)
        '
        Console.ReadLine()
    End Sub
End Module
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2011 - Alle rechten voorbehouden.