home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic .NET - Read Less - Learn More / Visual_Basic.NET_Read_Less_Learn_More_Richard_Bowman_Visual_2002.iso / Resources / Code / Ch8-InheritExistingClass / BaseClass.vb < prev    next >
Text File  |  2001-08-08  |  528b  |  22 lines
  1. Public Class Adder
  2.     Private mProperty1 As Integer
  3.     Public Property Property1() As Integer
  4.         Get
  5.             Return mProperty1
  6.         End Get
  7.         Set(ByVal Value As Integer)
  8.             mProperty1 = Value
  9.         End Set
  10.     End Property
  11.  
  12.     Overridable Sub ModifyProperty1(ByVal val As Integer)
  13.         mProperty1 += val
  14.     End Sub
  15. End Class
  16.  
  17. Public Class Multiplier
  18.     Inherits Adder
  19.     Overrides Sub ModifyProperty1(ByVal val As Integer)
  20.         Property1 *= val
  21.     End Sub
  22. End Class