Внедрение нескольких интерфейсов с одним свойством в VB.NET

Question

При запуске я загружаю все свои значения app.config в класс с именем ConfigValues. Моя база данных нуждается только в некоторых из них, поэтому у меня есть интерфейс IDatabaseConfig, который указывает только те параметры, которые ему нужны. Таким образом, когда я создаю класс подключения к базе данных, с инжектором конструктора, я могу потребовать, чтобы ему передавалось все, что реализует IDatabaseConfig.

Что я хотел бы сделать, это объявить несколько интерфейсов класса ConfigValues и разрешить некоторым свойствам одновременно выполнять несколько контрактов.

Вот небольшой пример кода:

Public Interface IAppConfig 
    Property Server As String 
    Property ErrorPath As String 
End Interface 

Public Interface IDatabaseConfig 
    Property Server As String 
End Interface 

Public Class ConfigValues 
    Implements IAppConfig 
    Implements IDatabaseConfig 

    Public Property ErrorPath As String Implements IAppConfig.ErrorPath 

    'need different syntax - does not compile: 
    Public Property Server As String Implements IAppConfig.Server, 
            Implements IDatabaseConfig.Server 

End Class 

В VB.NET, есть способ, чтобы указать, что одно свойство удовлетворяет контракт на несколько интерфейсов?

Это полная противоположность этим двум вопросам SO, которые пытаются разделить одно и то же имя интерфейса на два разных свойства.

• Implementing 2 Interfaces with 'Same Name' Properties
• How to implement an interface in VB.Net when two methods have the same name but different parameters

---

Как cludgy обходной путь, я мог бы иметь оба свойства относятся к одной и той же основы собственности, но я должен был бы изменить имя свойства, по крайней мере, один из них, который изменяет API.

Private _server As String 
Public Property ServerForApp As String Implements IAppConfig.Server 
    Get 
     Return _server 
    End Get 
    Set(value As String) 
     _server = value 
    End Set 
End Property 
Public Property ServerForDatabase As String Implements IDatabaseConfig.Server 
    Get 
     Return _server 
    End Get 
    Set(value As String) 
     _server = value 
    End Set 
End Property 

Answer 1

Я думаю, что вы хотите, поддерживается, вы только что получили синтаксис неправильно:

Public Class ConfigValues 
    Implements IAppConfig 
    Implements IDatabaseConfig 

    Public Property ErrorPath As String Implements IAppConfig.ErrorPath 

    Public Property Server As String Implements IAppConfig.Server, 
               IDatabaseConfig.Server 

End Class