'Visual Basic 2010 Redefinition - Overridable en Overrides Object Oriented Programming
Class Counter
    Protected m_Value As Integer
    Public ReadOnly Property Value() As Integer
        Get
            Value = m_Value
        End Get
    End Property
    Public Overridable Sub Raise()
        m_Value += 1
    End Sub
    Public Overridable Sub Lower()
        m_Value -= 1
    End Sub
End Class
Module Example3
    Sub Main()
        Dim counter As Counter = New Counter
        Console.WriteLine(counter.Value)
        counter.Raise()
        Console.WriteLine(counter.Value)
        counter.Raise()
        Console.WriteLine(counter.Value)
        counter.Lower()
        Console.WriteLine(counter.Value)
        '
        Console.ReadLine()
    End Sub
End Module
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2011 - Alle rechten voorbehouden.