vb.net - 在 VB 中，如何强制继承类使用类的属性？

Question

我试图强制继承类使用自定义属性。我正在创建一个类库，想要创建项目的用户将这样做，但被迫向其继承的类添加一个属性(或者 visual studio 将自动添加默认属性)。这是我希望实现的目标:

基类.vb:

<CustomAttribute(10)> _
Public Class BaseClass

End Class

我的类.vb:

<CustomAttribute(12)> _
Public Class MyClass
    Inherits BaseClass

    Public Sub New()
         Mybase.New()
    End Sub

End Class

所以这个想法很像当您将一个函数标记为“MustOverride”然后继承的类必须覆盖该函数时，我希望属性为“MustOverride”导致继承的类指定值。

我已经试过了，它会起作用，但如果我可以使用属性，它会更干净:

基类.vb:

Public MustInherit Class BaseClass

   Public MustOverride ReadOnly Property CustomAttribute() As String

End Class

我的类.vb:

Public Class MyClass
    Inherits BaseClass

    Public Sub New()
         Mybase.New()
    End Sub

    Public Overrides ReadOnly Property CustomAttribute() As String
        Get
             Return "testing"
        End Get
    End Property
End Class

感谢您提供的任何帮助。

斯科特

Answer 1

您是否考虑过实现接口(interface)？我假设您正在使用基类，因为您希望在基类中提供一些代码，如果不是，那么根据您的其他要求，接口(interface)可能会更好:

Interface IBase
    ReadOnly Property CustomAttribute() As String   
End Interface

它仍然非常紧凑，当您在新类中键入“Implements IBase”时，Visual Studio 将为您填充代码。