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

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