VB.NET - 在子类中扩展属性

Question

也许有人可以帮助我，我可以想象这是一个共同的需求： 我有一个基类和一个子类。基类有一个名为“hello”的属性。现在我需要在子属性 Set 中添加扩展功能 - 我该如何实现？

进一步解释的代码示例：

基类：

Public MustInherit Class Base

    Private pHello as String = ""

    Public Property Hello As String
        Get
            Return pHello
        End Get
        Set(ByVal value As String)
                pHello = value
                'DoSomethingInBaseClass()
                MsgBox "BaseClass calling!" 'Just for testing
        End Set
    End Property

End Class

儿童班

Public Class Child
    Inherits Base

    Public Property Hello As String
        Get
            Return MyBase.Hello
        End Get
        Set(ByVal value As String)
                'DoSomethingInCHILDClass()
                MsgBox "ChildClass calling!" 'Just for testing
        End Set
    End Property

End Class

Main 中的属性集

Public Class Main

    Public Sub DoIt()
        Dim InstChild as new Child
        InstChild.Hello = "test"
    End Sub

End Class

基本上我想要的是，在设置属性时，我首先获得子消息框，然后是基本消息框。

当然我需要在属性定义中添加一个关键字。 我玩过 Shadows 和 Overrides，但要么只得到 Child，要么只得到 Base Message。

有没有办法两者兼得？

非常感谢！

Answer 1

我建议在可覆盖的函数中完成这项工作。这样您就可以让子类完成其工作，然后调用 MyBase.overriddenFunction()。

例如：

基类

Public MustInherit Class Base

    Private pHello as String = ""

    Public Property Hello As String
        Get
            Return pHello
        End Get
        Set(ByVal value As String)
                pHello = value
                doSomething()
                MsgBox "BaseClass calling!" 'Just for testing
        End Set
    End Property

    Private Overridable Sub doSomething()
        'Do base class stuff
    End Sub

End Class

儿童班

Public Class Child
    Inherits Base

    Public Property Hello As String
        Get
            Return MyBase.Hello
        End Get
        Set(ByVal value As String)
                doSomething()
                MsgBox "ChildClass calling!" 'Just for testing
        End Set
    End Property

    Private Overrides Sub doSomething()
        'Do child class stuff
        MyBase.doSomething()
    End Sub

End Class

Answer 2

问题出在子类中。而不是返回myBase.hello，只需返回Me.hello。
因为起初子类的me.hello 将等于base class 的hello。因此，当您覆盖该属性时，在基类中它将保持不变，并且只会在子类上更改。
因此，为了让你们俩都应该调用：Base.Hello.get() 和 Child.Hello.get()