mcs/btests/InterfaceC.vb

   1 \r
   2 Interface I\r
   3     Function F()\r
   4 End Interface\r
   5 \r
   6 MustInherit Class C1\r
   7     Implements I\r
   8 \r
   9     Function F() Implements I.F\r
  10     End Function\r
  11 End Class\r
  12 \r
  13 MustInherit Class C2\r
  14     Implements I\r
  15 \r
  16     MustOverride Function F() Implements I.F\r
  17 End Class\r
  18 \r
  19 \r
  20 Class DC1\r
  21     Inherits C1\r
  22 End Class\r
  23 \r
  24 Class DC2\r
  25     Inherits C2\r
  26 \r
  27     Overrides Function F()\r
  28     End Function\r
  29 End Class\r
  30 \r
  31 Module InterfaceC\r
  32     Sub Main()\r
  33         Dim x As DC1 = New DC1()\r
  34         x.F()\r
  35 \r
  36         Dim y As DC2 = New DC2()\r
  37         y.F()\r
  38     End Sub\r
  39 End Module\r
  40 \r