mcs/btests/Interface.vb

   1 Imports System\r
   2 Interface I\r
   3     Sub F()\r
   4 End Interface\r
   5 \r
   6 Class C\r
   7     Implements I\r
   8 \r
   9     Public Sub F() Implements I.F\r
  10     End Sub\r
  11 End Class\r
  12 \r
  13 Module InterfaceTest\r
  14     Sub Main()\r
  15         Try\r
  16 \r
  17                 Dim x As C = New C()\r
  18                 x.F()\r
  19         Catch e As Exception\r
  20                 Console.WriteLine("#A1:Interface:Failed-error creating instance of class implementing interface"+e.Message)\r
  21         End Try\r
  22 \r
  23         Try\r
  24                 Dim y As I = New C()\r
  25                 y.F()\r
  26         Catch e As Exception\r
  27                 Console.WriteLine("#A2:Interface:Failed - error declaring varaibles of the interface")\r
  28                 Console.WriteLine(e.Message)\r
  29         End Try\r
  30     End Sub\r
  31 End Module\r