泛型继承接口中同名无参属性的区分方法问询

问题说明 #

先看示例代码：

Public Interface A(Of T)
  Property Objects as List(Of T)
End Interface

Public Interface B
  Inherits A(Of List(Of List))
  Inherits A(Of List(Of Tuple))
End Interface

Public Class C
  Implements B

  Public Sub Retrieve()
    For Each item As Tuple in Objects
      '' Overload resolution failed because no 'Objects' is most specific for these arguments.
    Exit For
  End Sub
End Class

接口B继承两个泛型接口后，类C实现时会拥有两个同名Objects属性，仅返回类型不同。代码编写阶段符合语法规范，但使用时会出现重载解析失败，无法区分两个属性。

此问题源于文件系统场景需求：文件夹和文件在部分处理中视为同类实体，部分场景下需区分、排序，当前因缺乏高效单列表操作方法，不得不维护多列表（文件、文件夹、组合列表），希望优化该方案。

以下从三个方向给出解决方案：

1. 直接语法解决方案 #

VB.NET支持显式接口实现，通过接口类型限定来区分不同的Objects属性：

Public Class C
  Implements B

  ' 显式实现A(Of List(Of Tuple))的Objects属性
  Private Property ObjectsTuple As List(Of List(Of Tuple)) Implements A(Of List(Of Tuple)).Objects
    Get
      ' 自定义实现逻辑
    End Get
    Set(value As List(Of List(Of Tuple)))
      ' 自定义实现逻辑
    End Set
  End Property

  ' 显式实现A(Of List(Of List))的Objects属性
  Private Property ObjectsList As List(Of List(Of List)) Implements A(Of List(Of List)).Objects
    Get
      ' 自定义实现逻辑
    End Get
    Set(value As List(Of List(Of List)))
      ' 自定义实现逻辑
    End Set
  End Property

  Public Sub Retrieve()
    ' 通过接口类型转换，明确指定要访问的属性
    Dim targetObjects = DirectCast(Me, A(Of List(Of Tuple))).Objects
    For Each itemList In targetObjects
      For Each item As Tuple In itemList
        ' 业务处理逻辑
      Next
    Next
  End Sub
End Class

显式实现的接口成员默认是私有访问级别，必须通过将实例转换为对应接口类型来访问，以此消除调用歧义。

2. 变通处理方法 #

方法一：为接口B新增命名属性 #

修改接口B，为不同类型的列表添加明确命名的属性，从根源避免同名冲突：

Public Interface B
  Inherits A(Of List(Of List))
  Inherits A(Of List(Of Tuple))

  ' 新增明确命名的属性，包装原接口的Objects
  ReadOnly Property FolderItems As List(Of List(Of List))
  ReadOnly Property FileItems As List(Of List(Of Tuple))
End Interface

Public Class C
  Implements B

  Private Property ObjectsList As List(Of List(Of List)) Implements A(Of List(Of List)).Objects
  Private Property ObjectsTuple As List(Of List(Of Tuple)) Implements A(Of List(Of Tuple)).Objects

  Public ReadOnly Property FolderItems As List(Of List(Of List)) Implements B.FolderItems
    Get
      Return ObjectsList
    End Get
  End Property

  Public ReadOnly Property FileItems As List(Of List(Of Tuple)) Implements B.FileItems
    Get
      Return ObjectsTuple
    End Get
  End Property

  Public Sub Retrieve()
    ' 直接使用命名属性，无歧义
    For Each itemList In FileItems
      For Each item As Tuple In itemList
        ' 业务处理逻辑
      Next
    Next
  End Sub
End Class

方法二：拆分接口职责 #

将不同类型的列表操作拆分到独立接口，避免单一接口继承多个泛型接口导致的冲突：

Public Interface IFolderContainer
  Property FolderObjects As List(Of List(Of List))
End Interface

Public Interface IFileContainer
  Property FileObjects As List(Of List(Of Tuple))
End Interface

Public Interface B
  Inherits IFolderContainer, IFileContainer
End Interface

Public Class C
  Implements B

  Public Property FolderObjects As List(Of List(Of List)) Implements IFolderContainer.FolderObjects
  Public Property FileObjects As List(Of List(Of Tuple)) Implements IFileContainer.FileObjects

  Public Sub Retrieve()
    For Each itemList In FileObjects
      For Each item As Tuple In itemList
        ' 业务处理逻辑
      Next
    Next
  End Sub
End Class

3. 高效容器使用方式（消除多容器存储） #

针对文件系统场景，建议通过基类抽象+单一列表+LINQ查询的方式，彻底消除多容器维护的必要性：

步骤1：定义统一基类 #

Public MustInherit Class FileSystemItem
  Public Property Name As String
  Public Property FullPath As String
  ' 其他通用属性（如创建时间、修改时间）
End Class

Public Class Folder : Inherits FileSystemItem
  ' 文件夹特有属性，如子项集合
End Class

Public Class File : Inherits FileSystemItem
  Public Property Size As Long
  Public Property Extension As String
  ' 文件特有属性
End Class

步骤2：单一列表存储+LINQ高效操作 #

Public class DirectoryNode
  ' 用单一列表存储所有文件系统项
  Public Property Items As List(Of FileSystemItem) = New List(Of FileSystemItem)()

  ' 查询所有文件夹
  Public Function GetAllFolders() As IEnumerable(Of Folder)
    Return Items.OfType(Of Folder)()
  End Function

  ' 查询所有文件并按大小降序排序
  Public Function GetFilesSortedBySize() As IEnumerable(Of File)
    Return Items.OfType(Of File)().OrderByDescending(Function(f) f.Size)
  End Function

  ' 查询名称包含指定关键词的所有项
  Public Function SearchItems(keyword As String) As IEnumerable(Of FileSystemItem)
    Return Items.Where(Function(i) i.Name.Contains(keyword, StringComparison.OrdinalIgnoreCase))
  End Function
End Class

核心优势： #

• 无需维护多个容器，减少代码冗余和出错概率
• LINQ的OfType、Where、OrderBy等方法均经过官方优化，查询效率接近直接遍历
• 扩展性强：新增文件系统类型（如快捷方式）时，只需继承FileSystemItem，无需修改容器结构

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