如何强制多个实体数据模型类拥有特定共享成员？

我太懂你这种搜了半天找不到办法的憋屈了！EF自动生成的实体类确实麻烦——不能碰自动生成的文件，只能靠分部类扩展，还没法额外继承基类，接口又搞不定Shared成员。给你几个实际可行的思路：

1. 分部类 + 共享模块 + 编译时检查（最推荐） #

既然接口不能定义Shared成员，我们可以用VB的Module来统一托管共享成员的逻辑，然后在每个实体的分部类里显式实现对应的Shared成员，再用代码分析工具强制所有目标类都必须实现这些成员。

举个具体的代码例子：

' 专门存放共享成员逻辑的模块
Module SharedEntityMembers
    ' 每个实体对应的共享属性逻辑
    Public ReadOnly Property Entity1_PropA As String
        Get
            ' 这里可以写统一的逻辑，比如从配置读取、固定值等
            Return "Entity1的共享PropA值"
        End Get
    End Property

    Public ReadOnly Property Entity2_PropA As String
        Get
            Return "Entity2的共享PropA值"
        End Get
    End Property
End Module

' 实体1的分部类（你自己写的，和自动生成文件分开）
Partial Public Class Entity1
    ' 强制实现的共享属性，直接调用模块里的逻辑
    Public Shared ReadOnly Property PropA As String
        Get
            Return SharedEntityMembers.Entity1_PropA
        End Get
    End Property
End Class

' 实体2的分部类
Partial Public Class Entity2
    Public Shared ReadOnly Property PropA As String
        Get
            Return SharedEntityMembers.Entity2_PropA
        End Get
    End Property
End Class

如果要确保所有目标实体类都实现了Shared PropA，可以写一个简单的Roslyn分析器（或者用VS的代码分析规则），检查标记的分部类是否包含指定的Shared成员，这样编译阶段就能报错，避免遗漏。

2. 自定义特性 + 反射（简单易实现） #

如果不想搞编译时检查，也可以用特性标记+运行时反射的方式来强制约束：

首先定义一个特性，用来标记需要拥有共享成员的类：

<AttributeUsage(AttributeTargets.Class, Inherited:=False, AllowMultiple:=False)>
Public Class RequiresSharedPropAttribute
    Inherits Attribute
    ' 可以指定需要的成员名称，比如这里要求必须有PropA
    Public ReadOnly Property RequiredMemberName As String = "PropA"
End Class

然后在每个实体分部类上标记这个特性：

<RequiresSharedPropAttribute>
Partial Public Class Entity1
    Public Shared ReadOnly Property PropA As String = "共享值"
End Class

最后在程序启动时（比如Global.asax或者Program.cs里）写一个检查逻辑：

Sub CheckSharedMembers()
    ' 获取所有标记了特性的类
    Dim entityTypes = AppDomain.CurrentDomain.GetAssemblies()
        .SelectMany(Function(a) a.GetTypes())
        .Where(Function(t) Attribute.IsDefined(t, GetType(RequiresSharedPropAttribute)))

    For Each type In entityTypes
        Dim attr = DirectCast(Attribute.GetCustomAttribute(type, GetType(RequiresSharedPropAttribute)), RequiresSharedPropAttribute)
        ' 检查是否存在指定的Shared成员
        Dim member = type.GetProperty(attr.RequiredMemberName, BindingFlags.Public Or BindingFlags.Static)
        If member Is Nothing Then
            Throw New InvalidOperationException($"实体类 {type.Name} 缺少要求的共享成员 {attr.RequiredMemberName}")
        End If
    Next
End Sub

这个方案的优点是实现简单，不用复杂的工具；缺点是约束是运行时生效的，不是编译时，但对于EF实体类的场景来说，已经能满足强制共享成员的需求了。

为什么接口行不通？ #

你说的没错，VB.NET的接口确实不支持定义Shared成员，这是语言本身的限制——接口的设计是针对实例成员的契约，Shared成员属于类本身，不属于实例，所以接口没法约束。

内容的提问来源于stack exchange，提问作者Horitsu