mcs/mbas/Test/tests/typemembers/DefaultPropF.vb

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