Inherited klasse, hvordan legge til "Set" på en readonly property?

[Wubbable]

Public Class ServiceControllerEx

Inherits ServiceController

Public Overloads WriteOnly Property DependentServices() As ServiceController()
	Set(ByVal svcs() As ServiceController)
	'Noe kode
	End Set
End Property

End Class

 

Dette er en del av koden til min ServiceControllerEx klasse. (En utvidelse av vanlig ServiceController)

Problemet er at ServiceController klassen har en property som heter DependentServices, men denne er read only...

 

Går det på noen måte an å "legge til" en skrivefunksjon (Set), og fortsatt beholde den native "Get" funksjonen?

[aadnk]

Bruk Shadows-nøkkelordet til å lage en ny egenskap med samme navn i ServiceControllerEx uten å påvirke ServiceController. Dette betyr at endringer i Get-prosedyren ikke gjør seg gjeldende i DirectCast(dinKlasse, SerivceController).DependentServices (i motsetning til Overrides), men dette er dog ikke nødvendig i dette tilfellet):

Public Class ServiceControllerEx
   Inherits ServiceController

   Public Shadows Property DependentServices() As ServiceController()
       Get
           Return MyBase.DependentServices
       End Get
       Set(ByVal svcs As ServiceController())
           ' Noe kode
       End Set
   End Property
End Class