mcs/mbas/Test/tests/InterfaceC.vb

   1 \r
   2 Interface I\r
   3     Function F()\r
   4 End Interface\r
   5 \r
   6 \r
   7 Interface I1\r
   8     Sub S()\r
   9 End Interface\r
  10 \r
  11 \r
  12 MustInherit Class C1\r
  13     Implements I\r
  14 \r
  15     Function F() Implements I.F\r
  16     End Function\r
  17 End Class\r
  18 \r
  19 MustInherit Class C2\r
  20     Implements I\r
  21 \r
  22     MustOverride Function F() Implements I.F\r
  23 End Class\r
  24 \r
  25 \r
  26 MustInherit Class C3\r
  27     Implements I1\r
  28 \r
  29     MustOverride Sub S() Implements I1.S\r
  30 End Class\r
  31 \r
  32 \r
  33 Class DC1\r
  34     Inherits C1\r
  35 End Class\r
  36 \r
  37 Class DC2\r
  38     Inherits C2\r
  39 \r
  40     Overrides Function F()\r
  41     End Function\r
  42 End Class\r
  43 \r
  44 \r
  45 Class DC3\r
  46     Inherits C3\r
  47 \r
  48     Overrides Sub S()\r
  49     End Sub\r
  50 End Class\r
  51 \r
  52 \r
  53 Module InterfaceC\r
  54     Sub Main()\r
  55         Dim x As DC1 = New DC1()\r
  56         x.F()\r
  57 \r
  58         Dim y As DC2 = New DC2()\r
  59         y.F()\r
  60 \r
  61 \r
  62         Dim z As DC3 = New DC3()\r
  63         z.S()\r
  64     End Sub\r
  65 End Module\r
  66 \r