mcs/btests/OverrideA.vb

   1 Class B\r
   2     Overridable Function F() As Integer\r
   3         Return 5\r
   4     End Function\r
   5 End Class\r
   6 \r
   7 Class D\r
   8     Inherits B\r
   9 \r
  10     Overrides Function F() As Integer\r
  11         ' you should be able to access \r
  12         ' the members of base class \r
  13         ' using 'MyBase' as follows\r
  14         MyBase.F()\r
  15 \r
  16         Return 10\r
  17     End Function\r
  18 End Class\r
  19 \r
  20 Module OverrideA\r
  21     Sub Main()\r
  22         Dim x As B\r
  23 \r
  24         x = New B()\r
  25         If x.F() <> 5 Then\r
  26             Throw New System.Exception("#A1, unexpected result from base class")\r
  27         End If\r
  28 \r
  29         x = New D()\r
  30         If x.F() <> 10 Then\r
  31             Throw New System.Exception("#A2, unexpected result from derived class")\r
  32         End If\r
  33     End Sub\r
  34 End Module\r