mcs/mbas/Test/tests/InterfaceH.vb

   1 ' In this test all implemented
   2 ' member names are different from
   3 ' the interface member names
   4
   5 Delegate Sub d()
   6
   7 Interface I
   8     Function F()
   9     Sub S (i as integer)
  10     Property P
  11     Event e (i as integer)
  12     Event e1 as d
  13 End Interface
  14
  15 Class C
  16     Implements I
  17
  18     Function CF() Implements I.F
  19     End Function
  20
  21    Sub CS(i as integer) Implements I.S
  22    End Sub
  23
  24    Sub S1(i as integer)
  25    End Sub
  26
  27
  28    Property CP Implements I.P
  29         Get
  30         End Get
  31         Set
  32         End Set
  33   End Property
  34
  35   Event Ce(i as integer) Implements I.e
  36
  37   Event Ce1 as d implements I.e1
  38
  39 End Class
  40
  41 Module InterfaceA
  42     Sub Main()
  43         Dim x As C = New C()
  44         x.CF()
  45
  46         Dim y As I = New C()
  47         y.F()
  48     End Sub
  49 End Module