如何在不使用中间类或不共享的情况下，在各个类之间共享相同的代码段？

Question

我有2个类A和B ，它们共享2个函数S1和S2 ，这两个类中的代码完全相同：

Public Class A
    Private Coll as New Collection
    Public Sub A1()
    End Sub
    Public Function A2() As String
    End Function
    'Identical functions:
    Public Function S1() As Int32
        ...
        Coll.Add(Something1)
    End Function
    Public Function S2() As Boolean
        ...
        Coll.Add(Something2)
    End Function
End Class

Public Class B
    Private Coll as New Collection
    Public Sub B1(Arg1 As Boolean)
    End Sub
    Public Function B2() As Int32
    End Function
    'Identical functions:
    Public Function S1() As Int32
        ...
        Coll.Add(Something1)
    End Function
    Public Function S2() As Boolean
        ...
        Coll.Add(Something2)
    End Function
End Class

S1和S2是与实例字段进行交互并产生一些对象的工厂函数，这些对象分别进入A和B本地集合中，因此使用Shared解决方案可能不是选项（？），而且似乎也不可能将通用函数打包到基类中（？）。

出于可维护性的原因，我希望将包含S1和S2的整个代码块定义在一个位置，最好在专用文件"CommonMethods.vb" 。

出于可用性的原因，我需要直接访问所有成员，而无需使用中间类C 无论C的名字是什么，它的存在绝对是违反直觉的。 键入A.时，Intellisense应该显示以下成员A.

A1, A2, S1, S2

并不是

A1, A2, C

以及输入B.时B.

B1, B2, S1, S2

并不是

B1, B2, C

如果VB.NET中存在#Include Filename ，我将这样做：

Public Class A
    Public Sub A1()
    End Sub
    Public Function A2() As String
    End Function
#Include CommonFunctions.vb
End Class

Public Class B
    Public Sub B1(Arg1 As Boolean)
    End Sub
    Public Function B2() As Int32
    End Function
#Include CommonFunctions.vb
End Class

但没有#Include 。

因此出现了一个问题：如何共享相同的代码文本？

Answer 1

您可以将所有通用功能-字段，属性，方法等-放置在基类中，如果希望基类和派生类可以访问它，而这些类的使用者不能访问它，则将其声明为Protected 。 如果基类之间的实现可能有所不同，则始终可以声明基类以及它们的成员MustInherit和MustOverride 。