mcs/mbas/Test/tests/InterfaceK.vb

   1 'Author:
   2 '   V. Sudharsan (vsudharsan@novell.com)
   3 '
   4 ' (C) 2005 Novell, Inc.
   5
   6 'To Check if MustOverridable methods can Implement the interface functions
   7
   8 Interface A
   9         Sub fun(ByVal a As Integer)
  10         Sub bun(ByVal a As Integer)
  11 End Interface
  12
  13 MustInherit Class B
  14         Implements A
  15         Sub Cfun(ByVal a As Integer) Implements A.fun
  16         End Sub
  17         MustOverride Sub Cbun(ByVal a As Integer) Implements A.bun
  18 End Class
  19
  20 Class C
  21         Inherits B
  22         Overrides Sub Cbun(ByVal a As Integer)
  23         End Sub
  24 End Class
  25
  26 Module InterfaceI
  27         Sub Main()
  28         End Sub
  29 End Module