mcs/btests/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\r
   8     Function F()
   9     Sub S (i as integer)
  10     Property P
  11     Event e (i as integer)
  12     Event e1 as d\r
  13 End Interface\r
  14 \r
  15 Class C\r
  16     Implements I\r
  17 \r
  18     Function CF() Implements I.F\r
  19     End Function
  20
  21    Sub CS(i as integer) Implements I.S\r
  22    End Sub\r
  23
  24    Sub S1(i as integer)\r
  25    End Sub\r
  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    \r
  39 End Class\r
  40 \r
  41 Module InterfaceA\r
  42     Sub Main()\r
  43         Dim x As C = New C()\r
  44         x.CF()\r
  45 \r
  46         Dim y As I = New C()\r
  47         y.F()\r
  48     End Sub\r
  49 End Module\r