mcs/btests/InterfaceE.vb

   1 Interface I\r
   2     Function F1(ByVal i As Integer)\r
   3     Function F2(ByVal i As Integer)\r
   4 End Interface\r
   5 \r
   6 Class B\r
   7     Implements I\r
   8 \r
   9     Overridable Function CF1(ByVal i As Integer) Implements I.F1\r
  10     End Function\r
  11 \r
  12     Overridable Function CF2(ByVal i As Integer) Implements I.F2\r
  13     End Function\r
  14 End Class\r
  15 \r
  16 Class D\r
  17     Inherits B\r
  18     Overrides Function CF2(ByVal i As Integer)\r
  19     End Function\r
  20 End Class\r
  21 \r
  22 Module InterfaceE\r
  23     Sub Main()\r
  24         Dim x As D = New D()\r
  25         x.CF1(10)\r
  26         x.CF2(10)\r
  27     End Sub\r
  28 End Module\r
  29 \r
  30 \r