mcs/mbas/Test/tests/OverrideG.vb

   1 'Author:
   2 '   V. Sudharsan (vsudharsan@novell.com)
   3 '
   4 ' (C) 2005 Novell, Inc.
   5
   6 Imports System
   7
   8 Class base
   9         Public Overridable Property Item(ByVal i as Integer)As Integer
  10                 Get
  11                         Return i
  12                 End Get
  13                 Set
  14                 End Set
  15         End Property
  16 End Class
  17
  18 Class derive
  19         Inherits base
  20         Public Overrides Property Item(ByVal i as Integer)As Integer
  21                 Get
  22                         Return 2*i
  23                 End Get
  24                 Set
  25                 End Set
  26         End Property
  27 End Class
  28
  29 Module DefaultA
  30         Sub Main()
  31                 Dim a as derive=new derive()
  32                 Dim i as Integer
  33                 i=a.Item(10)
  34                 if i<>20 Then
  35                         Throw New Exception("Default Not Working")
  36                 End If
  37         End Sub
  38 End Module