mcs/btests/Override_dll.vb

   1 REM Target: library
   2
   3 Imports System
   4
   5 NameSpace NSOverride
   6         Public Class B1
   7                 Public Overridable readonly Property SS(i as integer, y as string) as Integer
   8                         get
   9                         End Get
  10                 End Property
  11
  12                 Public Overridable writeonly Property SS1(i as integer, y as string) as Integer
  13                         set (Value As Integer)
  14                         End Set
  15                 End Property
  16
  17                 Public Overridable Property SS2(i as integer, y as string) as Integer
  18                         get
  19                         End Get
  20                         set (Value As Integer)
  21                         End Set
  22                 End Property
  23
  24                 Public Overridable Sub S2(i as integer, j as string)
  25                 End Sub
  26         End Class
  27
  28
  29         Public Class B2
  30                 Inherits B1
  31
  32                 Public Overridable Sub S1(i as integer)
  33                 End Sub
  34         End Class
  35 End NameSpace