mcs/btests/Override_dll.vb

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