mcs/mbas/Test/tests/DefaultAttrD.vb

   1 'Checks if Default property is working or not after Inheriting, overloading....It works\r
   2 \r
   3 Imports System\r
   4 \r
   5 Class base\r
   6         Public Default ReadOnly Property Item(ByVal i as Integer)As Integer\r
   7                 Get                     \r
   8                         Return i\r
   9                 End Get\r
  10         End Property\r
  11         Public Default ReadOnly Property Item(ByVal i as Integer,ByVal j as Integer)As Integer\r
  12                 Get                     \r
  13                         Return i+j\r
  14                 End Get\r
  15         End Property\r
  16 End Class\r
  17 \r
  18 Class derive\r
  19         Inherits base\r
  20         Public Overloads Default ReadOnly Property Item(ByVal i as Integer)As Integer\r
  21                 Get                     \r
  22                         Return 2*i\r
  23                 End Get\r
  24         End Property\r
  25 End Class\r
  26 \r
  27 Module DefaultA\r
  28         Sub Main()\r
  29                 Dim a as derive=new derive()\r
  30                 Dim i,j as Integer      \r
  31                 i=a(10)\r
  32                 j=a(10,20)\r
  33                 if i<>20 Then\r
  34                         Throw New Exception("Default Not Working")\r
  35                 End If\r
  36                 if j<>30 Then\r
  37                         Throw New Exception("Default Not Working")\r
  38                 End If\r
  39         End Sub\r
  40 End Module