'Visual Basic 2008/2010 Redefinition - Overridable en Overrides Object Oriented Programming
Class Addition
    Public Sub New(ByVal operand1 As Integer, ByVal operand2 As Integer)
        Me.Operand1 = operand1
        Me.Operand2 = operand2
    End Sub
    Private m_Operand1 As Integer
    Public Property Operand1() As Integer
        Get
            Operand1 = m_Operand1
        End Get
        Set(ByVal value As Integer)
            m_Operand1 = value
        End Set
    End Property
    Private m_Operand2 As Integer
    Public Property Operand2() As Integer
        Get
            Operand2 = m_Operand2
        End Get
        Set(ByVal value As Integer)
            m_Operand2 = value
        End Set
    End Property
    Public Function GetSum() As Integer
        GetSum = Operand1 + Operand2
    End Function
    Public Overrides Function ToString() As String
        ToString = Operand1 & " + " & Operand2 & " = " & GetSum()
    End Function
End Class
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2010 - Alle rechten voorbehouden.