mcs/btests/InterfaceC.vb

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